Какая програма должнаобеспечить ввод случайных чисел в диапозоне от 1 до 100 а затем проверить сколько четных чисел и вывести сообщение на экран кол-во записей случайных чисел 100

161

494

Посмотреть ответы 2

Ответы на вопрос:

xXDeXTeRXx

Информатика

4,7(32 оценок)

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.

ilviragaraeva2

Информатика

4,4(98 оценок)

Программа написана на pascalabc.net но должна работать во всех паскалях. скриншот результата работы и сама программа - в приложениях. первый листинг в кодировке utf второй листинг в кодировке ansi