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

Ввести с клавиатуры массив из 5 элементов найти максимальный и минимальный из них

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

Var max, min : integer;
      a:array[1..5] of integer;
max:=0;
min:=0;
begin
for i:=1 to 5 do 
readln(a[i]);
for i:=1 to 5 do begin
if a[i]min:=a[i];
if a[i]>max then
max=a[i];
end;
writeln(Максимальный:,max,,минимальный: ,min);
end.
проверь на паскале только)