Паскаль

Пусть вводится последовательность вещественных чисел, оканчивающаяся нулем и состоящая более чем из одного ненулевого элемента. Определите наибольшее число последовательности.

Question

Информатика

Бонифатий

14 июня, 11:42

Паскаль

Пусть вводится последовательность вещественных чисел, оканчивающаяся нулем и состоящая более чем из одного ненулевого элемента. Определите наибольшее число последовательности.

+3

Ответы (1)

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

Бронислава · Answer 1

Попробуй так:

uses Crt;

var a, Max: real;

i: integer;

begin

ClrScr;

i:=0;

Repeat

i:=i+1;

Write ('a', i,'=') ; ReadLn (a) ;

if a0 then

begin

if a>Max then Max:=a;

end;

until a=0;

WriteLn;

WriteLn (' Max = ', Max:6:4) ;

ReadLn;

end.