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
begin

if a[i]
begin

j:=j+1;

i:=i+1

end

else

begin

writeln ('Последовательность невозрастающая') ;

break

end;

end;

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

End.