Регистрация
GreenApelsin
31.10.2021 22:24
Информатика
Есть ответ 👍

Датчика случайных чисео ввести 4 значения от -47 до 16. найти максимум и уменьшить на 5

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

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

svetlanagilman1
svetlanagilman1
4,5(29 оценок)
Program p1; var i,max: integer; a: array[1..4] of integer; begin max: =-18; randomize; for i: =1 to 4 do a[i]: =random(63)-47; for i: =1 to 4 do write(a[i],' '); writeln; for i: =1 to 4 do begin if a[i]> max then max: =a[i]; end; write(max-5); end.
katruhanchik
katruhanchik
4,4(38 оценок)

2+2=4ббвдыдбышялылыщызйх

Популярно: Информатика