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

2.В целочисленной последовательности есть нулевые элементы.Создать массив из номеров этих элементов.

3.

дана последовательность целых чисел а1, а2,...аn. Выяснить, какое число встречается раньш положитльно или отрицатльное.

4. Дана последоватльность действительных чисел а1,а2,...аn. Выяснить,будет ли она возрастающей.

1.

Program num1;Uses crt;Var a :array [1..100] of integer; i,k,n, s : integer;Begin clrscr; s:=0; write('K=');readln(k); write('N=');readln(n); for i:=1 to n do  readln(a[i]); for i:=1 to n do if (a[i] MOD k)=0 then s:=s+a[i]; writeln('S=',s);End.

2.

Program num2;Uses crt;Var a :array [1..100] of real; i,n,j : integer; x : array [1..100] of real;Begin clrscr; write('n=');readln(n); for i:=1 to n do  readln(a[i]); j:=1; for i:=1 to n do if a[i]=0 then begin x[j]:=i; j:=j+1 end; for i:=1 to j-1 do write(x[i],' ');End.

3.

Program num3;Uses crt;VAr a :array [1..100] of real; i,n : integer;Begin clrscr; write('n=');readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do begin if a[i]<>0 then if a[i]>0 then begin writeln('Положительное встречается раньше'); break end else begin writeln('Отрицательное встречается раньше'); break end; end;End.

4.

Program num4;Uses crt;Var a : array [1..100] of real; i, n, j :integer;Begin clrscr; write('n=');readln(n); a[n+1]:=a[n]+1; for i:=1 to n do readln(a[i]); j:=0; i:=1; while i<n do begin if a[i]<a[i+1] then begin j:=j+1; i:=i+1 end else begin writeln('Последовательность невозрастающая'); break end; end;

if i=n then writeln('Последовательность возрастающая');End.