1. Дан массив натуральных чисел. Найти сумму элементов кратных данному К. 2. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. 3. дана последовательность целых чисел а1, а2, ... аn. Выяснить, какое число встречается раньш положитльно или отрицатльное. 4. Дана последоватльность действительных чисел а1, а2, ... аn. Выяснить, будет ли она возрастающей.

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]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]0 then if m[i]>0 then writeln (' первый элемент положительный ') else writeln (' первый элемент отрицательный ');

break;

end;

for i:=1 to n-1 do

if a[i]<=a[i+1] then c:=c+1;

if c = n-1 then write (' последовательность а возрастающая ') else write (' последовательность а не возрастающая ');

end.