Список предметов

Математика
Литература
Алгебра
Русский язык
Геометрия
Английский язык
Химия
Физика
Биология
Другие предметы
История
Обществознание
География
Українська література
Українська мова
Казак тили
Беларуская мова
Информатика
Экономика
Право
Составьте программу выводящую на экран большее из 5 чисел
Программа из Кумира
спросил от в категории Информатика

1 Ответ

Сделал через массив

program Project2; 
{$APPTYPE CONSOLE}
uses  SysUtils;
const n=4;
var a:array [0..n] of integer;max,i:Integer;
begin 
for i:=0 to n do 
 readln(a[i]); 
min:=a[0];
 for i:=0 to n do 
if a[i]>max then   
max:=a[i]; 
Writeln(max); 
readln;
end.
ответил от
x
...