Дан массив А, содержащий 35 элементов. Найти сумму и количество элементов, которые кратны 5. Помогите, буду благодарен.
Дан массив А, содержащий 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.
Не нашли ответ?
Похожие вопросы