< >

как найти наибольшее из двадцати чисел? Решение в программе паскаль?

Ответы

Ответ дал: glebglebgleb
0

var
a: array[1..20] of integer;
n,i:integer;
begin

for i:=1 to 20 do
readln(a[i]);

n:=a[1];
for i:=2 to 20 do begin
if a[i]>n then
n:=a[i];
end;
writeln('naibolshee= ', n);
end.

Похожие вопросы
Русский язык
2 года назад
подскажите пожалуйста слова с уменьшительно-ласкательным значением слов: запах, страх,мех,вдох,вздох,мох,верх, воздух, слух, отдых, конюх, если они есть, например:   Смех-смешок 
Українська мова
2 года назад
Звукові моделі слів кружляють і засяяла
Математика
7 лет назад
отметьте на координатной прямой числа модуль которых равен числу: 3; 0,5; 4 1/2; 7, 5 СДЕЛАЙТЕ ПО БЫСТРЕЕ ПЖ
Биология
7 лет назад
резоиды служат для А)всасывания пит вещесТВ Б)ВЕГЕТОТИВНОГО размножения В)прикрепления к субстрату Г)фотосинтеза
Физика
10 лет назад
Снаряд массой 100 кг, летящий со скоростью 0,3км/с, пробивает стоящий на горизонтальном полу контейнер с песком массой 5т, теряя при этом 75% своей энергии. Какую скорость при этом получает
Геометрия
10 лет назад
1.Одно из оснований трапеции в 6 раз меньше её средней линии. Во сколько раз оно меньше другого основания трапеции 2.даны два смежных угла, один из которых равен 34 градуса. найдите угол между
Математика
10 лет назад
а) В классе 32 учащихся, 3/4 их числа учатся на "4" и "5".Сколько учащихся учится на "4" и "5"? б) В классе 18 человек учатся без троек-это составляет 3/5 всех учащихся класса.Сколько учащихся в
История
10 лет назад
Спутник земли , давший название воротам в Александрии. Название.