Предмет: Информатика,
автор: OliverOTIS21
Составьте программу выводящую на экран большее из 5 чисел
Программа из Кумира
Ответы
Автор ответа:
0
сделал через массив
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.
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.
Похожие вопросы
Предмет: Математика,
автор: kira04733
Предмет: Математика,
автор: pershina533558
Предмет: Математика,
автор: israfil122006
Предмет: Физика,
автор: denogorodov
Предмет: Химия,
автор: Nurg1994