Одномерные массивы. дан массив натуральных чисел, состоящий из n элементов. найти сумму элементов массива, кратных данному числу к. (паскаль)

Const  n = 10; var  a : array [1..n] of integer;   k, sum : integer; begin   readln(k);   for i: = 1 to n do    readln(a[i]);   sum: = 0;   for i: = 1 to n do    if a[i] mod k = 0 then      sum: = sum +a[i];   writeln(sum); end.

1) var   x, r: integer;   begin   write('введите правильное число:   ');   readln(r);   writeln('проверка ввода: ');   repeat     readln(x);   until x = r;   writeln('вы ввели правильное число'); end.  2) var   sum, i: integer; begin   i: =0;   sum: =0;   repeat     i: =i+1;     sum: =sum+i;   until i = 10;   writeln(sum); end. 3) var   sum, i: integer; begin   i: =0;   sum: =0;   repeat     i: =i+1;     sum: =sum+i*i;   until i = 8;   writeln(sum); end.

Самый простой способ - это с операций целочисленного деления разбить общее число секунд на часы, минуты, секунды. далее собрать нужную строку из получившихся значений, преобразовывая в строки. учитывая длины получившихся подстрок где надо добавляем 0 слева от начала подстроки. n = int(input('число секунд с начала суток: '))h = n // 3600n = n % 3600m = n // 60s = n % 60sh = str(h)sm = str(m)if len(sm)< 2:     sm = "0"+smss = str(s)if len(ss)< 2:     ss = "0"+ssprint(sh,': ',sm,': ',ss)тест №1число секунд с начала суток: 72002 : 00 : 00тест №2число секунд с начала суток: 7520120 : 53 : 21