Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дан массив А, содержащий 35 элементов. Найти сумму и количество элементов, которые кратны 5. Помогите, буду благодарен.

Ответ оставил Гость

Program p1;
var a:array[1..35] of integer;
      i,k,s:integer;
begin
randomize;
for i:=1 to 35 do a[i]:=random(10)+1;
writeln(Массив:);
for i:=1 to 35 do writeln(a[,i,]=,a[i]);
s:=0;
k:=0;
for i:=1 to 35 do
begin
if(a[i] mod 5)=0 then
begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln(Сумма:,s);
writeln(Количество:,k);
end.