2. написать программу, которая вводит массив из n целых чисел и выводит на экран элементы, кратные числу k. протестировать программу на следующих исходных данных: а) k=3 массив: 2 6 -9 4 5 12 -15 б) k=4 массив: 9 0 8 124 -16 11 19 на паскале

Var  a: array [1..100000] of integer; i,n,k: integer; begin writeln('введите n и k'); readln(n,k); for i: =1 to n do begin writeln('введите элемент №',i); readln(a[i]); end; writeln('весь массив: '); for i: =1 to n do write(a[i],' '); writeln(); writeln('числа кратные ',k,': '); for i: =1 to n do if a[i] mod k = 0 then write(a[i],' '); end.тест №1: весь массив: 2 6 -9 4 5 12 15  числа кратные 3: 6 -9 12 15  тест №2: весь массив: 9 0 8 124 -16 11 19  числа кратные 4: 0 8 124 -16 

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

Const   n=10; var   i,s: integer;   a: array[1..n] of integer; begin   randomize;   write('исходный массив: ');   s: =0;   for i: =1 to n do begin       a[i]: =random(15)+1;       write(a[i],' ');       if (a[i]> =i) and (a[i]< =i+1) then s: =s+a[i]       end;   writeln;   write('сумма элементов в заданном полуинтервале равна ',s) end. пример выполнения исходный массив: 8 9 8 12 10 3 8 1 10 2 сумма элементов в заданном полуинтервале равна 18