Question

Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них. Программу можно создать на языке Pascal

Answer 1

Ответ:

Program Xai;

uses crt;

var a,b,c,d,e,max:real;

Begin

   clrscr;

   writeln('Введите 5 чисел');

   readln(a,b,c,d,e);

   if a>b then max:=a else max:=b;

   if c>max then max:=c;

   if d>c then max:=d;

   if e>d then e:=max;

   writeln('Максимальное значение является---> ',max);

   readln

end.

Объяснение: