Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Напишите программы в abc паскале пожалуйста: 1)надо ввести три числа и найти из них наибольшее; 2)надо ввести пять чисел и найти из них наибольшее ЗАРАНЕЕ СПС!

Ответ оставил Гость

Program Program1;

function maximum(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;

var
mas:array [1..100] of integer;
i,k,max:integer;
begin
write(Введите кол-во чисел: );
readln(k);
for i:=1 to k do
begin
write(A,i,=);
readln(mas[i]);
end;
max:=mas[1];
for i:=2 to k do
max:=maximum(max,mas[i]);
writeln(Максимальное число=,max);
end.