Предмет: Информатика,
автор: Susan1996
в одномерном массиве, заполненном случайными числами посчитать сумму и количество четных чисел.Массив размером 20
Ответы
Автор ответа:
0
program name;
uses crt;
var s,k:,i:integer;
aa:array [1..20] of integer;
begin
clrscr;
s:=0;
k:=0;
for i:=1 to 20 do begin
aa[i]:=random(100);
if aa[i] mod 2 = 0 then begin
s:=s+aa[i];
k:=k+1;
end;
end;
writeln('В данном массиве ',k,'четных чисел, сумма которых равна ',s);
end.
Похожие вопросы
Предмет: Математика,
автор: talap11012001
Предмет: Математика,
автор: jukovichsasha
Предмет: Алгебра,
автор: victoria56860
Предмет: Алгебра,
автор: NikitOchka
Предмет: География,
автор: connaja