1. В

+ 0 -

Dianamihailec

09 дек. 2015 г., 0:45:17 (8 лет назад)

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.