Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Найти максимальное из n введенных чисел.(циклы)

Ответ оставил Гость

Program sherilusha;
uses crt;
var
  i,n: integer;
  max, temp: real;
begin
  writeln(*** alphaues is thinking... ***);
  writeln(***          OK             ***);
  writeln();
  writeln(Ввести количество чисел); readln(n);
  writeln(Введите числа);
  write(1-е число:); readln(max);
  for i:=2 to n do
    begin
      write(i,-е число:); readln(temp);
      if max    end;
  writeln(Максимальное из введённых чисел равно ,max) ;
end.