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

Программирование на языке Паскаль.

Question

Информатика

Бландина

4 января, 00:35

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

Программирование на языке Паскаль.

+3

Ответы (2)

Знаете ответ на вопрос?

Лавиния · Answer 1

Var a, max:integer;

begin

read (a) ;

max:=0;

while a0 do

begin

if a>max then max:=a;

read (a) ;

end;

write (max) ;

end.

Сибилла · Answer 2

Мои рассуждения:

1. Объявить переменные и массив в разделе VAR

Последовательность чисел заканчивающихся нулем - это массив.

2. Задать массив и ввести такие числа.

Найти максимальное значение из таких чисел.

3. Отсортировать этот массив по возрастанию.

4. Вывести найденное значение.

.

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

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

Программирование на языке Паскаль.