Среди вводимых через х 10 чисел нужно найти максимальное и минимальное числа. составьте программу в паскале с помощь массива

1

Ответы и объяснения

2013-12-13T16:05:46+04:00
Var
a:array[1..10] of integer;
min,max,i:integer;
begin
min:=999999;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]>max then max:=a[i];
if a[i]end;
writeln('min = ',min);
writeln('max = ',max);
end.