Question

Нужно составить программу с помощью Repeat,определяющую максимальное из всех введённых вами чисел.(Пусть признаком конца ввода чисел является введённое число 0).

Answer 1

Program abc;

uses crt;

const n=30;

var

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

i, max:integer;

begin

clrscr; 

for i:=1 to n do

read(a[i]);

max:=a[1];

for i:=2ton do

if a[i]>max then max:=a[i];

write('max=',max);

end.

Answer 2

var
i, e : Integer;
begin

Writeln('Вводите числа:');

i := 0;

repeat
Readln(e);

if e > i then i := e;
until e = 0;

Writeln('Наибольшее число: ', i);

end.