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

сделать программу в паскале

ввести 10 чисел и из них найти минимум и максимум

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

var a:array[0..9] of integer;

      i,min,max:integer;

begin

 for i:=0 to 9 do readln(a[i]);

 min:=a[0];

  for i:=0 to 9 do if(min>a[i]) then min:=a[i];

 max:=a[0];

for i:=0 to 9 do if(max

writeln(max, , min);

readln;

end.