ПАМАГИТИ ПЖЖЖЖЖ МНОГО БАЛЛОВ!!!

ПАСКАЛЬ
Напишите программу , которая в последовательности натуральных чисел определяет наибольшее двузначное число, меньше 80. программа получает на вход натуральные числа , количество введенных чисел неизвесно, последовательномть чисел заканчивается числом 0. В последовательности всегда имеется двузнпчное число, меньше 80.
количество чисел не превышает 1000,, введённые числа не превышают 30000
программа должна вывести одно число - наибольшее двузначное число меньшее 80

Ответ

Автор - Kilekanisic

PasclaABC.NET

begin

var a := ReadSeqIntegerWhile('Введите числа:',x -> x = 0).ToArray;

var check := 0;

foreach x: integer in a do begin

if (x < 80) and (x > 9) then

check +=1;

if (a.Count > 1000) and (x > 3000) then

exit;

end;

if check = 0 then

exit;

a.Where(x -> (x < 80) and (x > 9)).Max.Print

end.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.