1. Информатика
  2. Дано n чисел. найти максимальное

Дано n чисел. найти максимальное число.

sileeet sileeet    3   09.03.2019 06:00    7

Ответы
katyaklimovich katyaklimovich  24.05.2020 09:48

var a,max: real;

     n,i: integer;

begin

  max:=0;

  readln(n);

  for i:=1 to n do begin 

    readln(a);

    if a>max then max:=a;

                         end;

  writeln(max);

end.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
handogin1999 handogin1999  28.09.2019 09:50
Выпишите свойства информации дискретность понятность объективность полнота достоверность...
costya99 costya99  27.11.2019 09:54
Написать программу в vba к этой блоксхеме...
sofianastusenko sofianastusenko  27.11.2019 09:52
Определите является ли треугольник прямоугольник по трем сторонам​...
Руфина157 Руфина157  27.11.2019 09:51
без плагиата! почему отношение неравенства можно назвать логическим выражением? пример блок-схемы алгоритма с логическим условием....
akyjla551 akyjla551  27.11.2019 09:50
Заданы длины сторон 2 прямоугольников определите сколько из них является квадратом​...
солнышко279 солнышко279  23.07.2019 07:10
Отметьте информационные процессы (действия с информацией). 1.работа на компьютере с клавиатурным тренажером; 2.установка телефона; 3.прослушивание музыкальной кассеты; 4.чтение...
rentbox rentbox  23.07.2019 07:10
Внимателино расмотрите числа рассположенные в каждом рядов и определите какое число являются лишним 1) 2, 3, 6, 7, 11,7 2)18, 12, 3, 29, 45, 28 3) 10, 20, 30, 36, 40, 50...
wigswond wigswond  10.02.2021 22:05
Чем отличается внутренний IP aдрес от внешнего​...
Бос2017 Бос2017  10.02.2021 22:05
Как ставить длинное тире, с каких клавиш?...
Sterl Sterl  30.07.2019 16:20
Var k, m, num: integer; dat: array [1..10] of integer; begin dat[1]: =7; dat[2]: =-8; dat[3]: =3; dat[4]: =6; dat[5]: =-4; dat[6]: =3; dat[7]: =5; dat[8]: =-5; dat[9]: =7;...

Популярные вопросы