1.Дан массив натуральных чисел. Отыскать сумму элементов кратных данному К. 2.В

program zz1;
const n = 7; //задаем количество частей в массиве
a:array [1..n] of integer=(-7, 1, 8, 14, 15, 16, 18);
var i, k, p, j, c:integer; // задаем переменные целого типа
m:array [1..n] of integer;
m1:array [1..n] of integer;
begin
write( введите k );
read(k);
for i:=1 to n do // записываем в массив числа случайным образом
begin
m[i]:=random(21)-10;
if (m[i] mod k = 0)and(m[i]lt;gt;0) then p:=p+1;
end;
for i:=1 to n do //выводим массив на экран
write(m[i], );
writeln; // перебегаем на новейшую строчку для вывода ответа
writeln(количество частей кратных k = ,p);
for i:=1 to n do
if m[i] = 0 then begin inc(j);m1[j]:=i;end;
writeln(массив из индексов нулевых частей);
for i:=1 to j do //выводим массив на экран
write(m1[i], );
writeln; // перебегаем на новую строчку для вывода ответа
for i:=1 to n do
begin
if m[i]lt;gt;0 then if m[i]gt;0 then writeln( 1-ый элемент положительный ) else writeln( первый элемент отрицательный ) ;
break;
end;
for i:=1 to n-1 do
if a[i]lt;=a[i+1] then c:=c+1;
if c = n-1 then write( последовательность а подрастающая ) else write( последовательность а не вырастающая ) ;
end.