Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.​

Sinnysis Sinnysis    2   19.03.2021 20:37    0

Ответы
тчочолаовов1 тчочолаовов1  19.03.2021 20:40

//Pascal

var

a : array[1..4] of integer;

_max, i : integer;

begin

readln(_max);

for i := 1 to 4 do

begin

readln(a[i]);

if (a[i] > _max) then

_max := a[i];

end;

writeln(_max);

end.

ПОКАЗАТЬ ОТВЕТЫ
rom252 rom252  19.03.2021 20:40

Справка обоснование 9ц9узащцзвщщащпщук8а8п8ущкща

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика