Предмет: Информатика,
автор: nhl19960907
какая програма должнаобеспечить ввод случайных чисел в диапозоне от 1 до 100 а затем проверить сколько четных чисел и вывести сообщение на экран кол-во записей случайных чисел 100
Ответы
Автор ответа:
0
program test;
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.
Интересные вопросы
Предмет: Алгебра,
автор: mbeleckaa70
Предмет: Русский язык,
автор: keksikplay007
Предмет: Русский язык,
автор: aygunmamedova85
Предмет: История,
автор: miss2306
Предмет: Математика,
автор: krasnova02