1. В

массиве А (11) случайных целых чисел (диапазон чисел [-10 ... 25]) определить:

сумму элементов,

которые кратны 5.

2. В

массиве B (6) случайных целых чисел (диапазон чисел [-4 ... 53]) определить:

количество элементов, которые меньше 7.

1.

var i, summa: integer;

A: array [1 ... 11] of integer;

begin

summa:=0;

randomize;

write ('Массив: ') ;

for i:=1 to 11 do begin

A[i]:=random (36) - 10;

write (A[i],' ') ;

end;

writeln;

for i:=1 to 11 do

if A[i] mod 5 = 0 then summa:=summa+A[i];

writeln ('Сумма чисел кратных 5 = ', summa) ;

end.

2.

var i, s: integer;

A: array [1 ... 6] of integer;

begin

s:=0;

randomize;

write ('Массив: ') ;

for i:=1 to 6 do begin

A[i]:=random (58) - 4;

write (A[i],' ') ;

end;

writeln;

for i:=1 to 6 do

if A[i] < 7 then s:=s+1;

writeln ('Количество элементов меньших 7: ', s) ;

end.