Задана последовательность чисел, оканчивающихся нулем. Найти максимальное значен...

March 2022 2 14 Report

Задана последовательность чисел, оканчивающихся нулем. Найти максимальное значение чисел.
Программирование на языке Паскаль.

YFimochka Мои рассуждения:
1. Объявить переменные и массив в разделе VAR
Последовательность чисел заканчивающихся нулем - это массив.
2. Задать массив и ввести такие числа.
Найти максимальное значение из таких чисел.
3. Отсортировать этот массив по возрастанию.
4. Вывести найденное значение.
.

0 votes Thanks 2

megamozginya Var a,max:integer;
begin
read(a);
max:=0;
while a<>0 do
begin
if a>max then max:=a;
read(a);
end;
write(max);
end.

1 votes Thanks 2

Answers & Comments

pomogite reshit algebra 9 klass h 4h 5h 6h 71680

pomogite reshit 2hh 11hh20

na zemle lezhat dva kirpicha odin na drugom oni soprikasayutsya shirokimi granyami

ryba karp vytesnyaet 500 kubsm vody najti arhimedovu silu dejstvuyushuyu na rybu

1 nazovite samyj tipichnyj metall i nemetall po tablice mendeleeva 2 pochemu inert

najdite proizvedenie dvuh dvuznachnyh chisel o kotoryh izvestno sleduyushee esli k

49 52h

рекомендуемые вопросы

Helpful Links

Helpful Social