1. Информатика
  2. Найти максимальное из 5 чисел

Найти максимальное из 5 чисел введённых с клавиатуры.

lizarepkina2004 lizarepkina2004    1   22.04.2019 16:49    1

Ответы
Zeinalovag Zeinalovag  08.06.2020 06:36

var a:array[1..5] of integer;

i,max:integer;

begin

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

for i:=1 to 5 do

begin

readln(a[i]);

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

end;

writeln('Максимальное: ',max);

end.

Язык PascalABC

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MarinaSc1 MarinaSc1  27.09.2019 23:00
Каким образом предоставляются данные , которые может использовать человек...
Елена29121983 Елена29121983  27.09.2019 23:00
Передите: 1-4 мбайт =? кбайт 1,5 кбайт=? байт....
damirnikiforov damirnikiforov  27.09.2019 23:00
Дано число 93426. сколькими можно приписать к нему две цифры справа так, чтобы полученное число делилось на 15?...
Милана3091 Милана3091  27.09.2019 23:00
Аналоговый сигнал что это, и что к нему относиться...
dina0585 dina0585  27.09.2019 23:10
Даны четыре слова: вкус, гипс, липа, вино. за один шаг можно заменить любую букву в любом из этих слов на любую другую (например, за один шаг можно получить из слова овал слово овак....
ddasha681 ddasha681  27.09.2019 22:23
Построить таблицу истинности z=a+(b*c)/(7a*c)...
nastyarybinskap0ai9q nastyarybinskap0ai9q  27.09.2019 22:23
Составьте блок-схему алгоритма и программу на языке паскаль для вычисления функции y= f от x и от x1 до xn с шагом дельта x номер 15 это дано....
Nukaka9l Nukaka9l  14.08.2019 10:50
Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 800×600 и палитрой из 65536 цветов....
errreir errreir  07.08.2019 04:30
Какое минимальное количество бит потребуется для кодирования чисел меньших 1024? 1)1024 2)24 3)8 4)10...
Triss123466 Triss123466  07.08.2019 04:30
Вычислите количество информации в слове информативность ,если допустить ,что в алфавите содержится 32 символа...

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