Нужно вывести на экран только числа >0

Проектирование и разработка идеального средства программирования.

Модератор: Модераторы

Нужно вывести на экран только числа >0

Сообщение papik1222 » 04.05.2021 17:11:27

const N = 13;
var
a: array[1..N] of integer;
max: integer;
i, count: byte;
begin
randomize;
max := -11;
for i:=1 to N do begin
a[i] := random(21)-10;
write(a[i],' ');
if a[i] > max then max := a[i];
end;
writeln;
count := 0;
for i:=1 to N do
if abs(a[i]) > max then
count := count + 1;
writeln(count);
end.
papik1222
незнакомец
 
Сообщения: 1
Зарегистрирован: 04.05.2021 17:09:31

Вернуться в Компилятор / язык программирования

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Рейтинг@Mail.ru