Составьте программу выводящую на экран большее из 5 чисел Программа из Кумира
Составьте программу выводящую на экран большее из 5 чисел
Программа из Кумира
Гость
Ответ(ы) на вопрос:
Гостьсделал через массив
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.
Не нашли ответ?
Похожие вопросы