Предмет: Информатика,
автор: SerchanN
Программа генерирует 10 целых чисел в диапазоне от 0 до
20. Посчитать, сколько из них четных.
Программа на языке Pascal ABC!
Помогите пожалуйста! Буду очень признателен!
Ответы
Автор ответа:
3
var i,k:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(20);
if a[i] mod 2 = 0 then k:=k+1;
end;
writeln(k);
end.
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(20);
if a[i] mod 2 = 0 then k:=k+1;
end;
writeln(k);
end.
Интересные вопросы
Предмет: Русский язык,
автор: dbrnjhbz25
Предмет: Русский язык,
автор: toshataktaev
Предмет: Русский язык,
автор: DonaDora
Предмет: Физика,
автор: EXORus