Pascal одномерный масив min and max

[legion726]

Дано одномерный массив a10, b10 для каждого массива определить максимальное и минимальное.

Помогите пожалуйста

[Jaiden]

И что в этом сложного?

var
a,b: array [1..10] of integer;
min,max: array [1..2] of integer;
i: integer;

begin

for i:=1 to 10 do
  begin

    write ('a[',i,']= ');
    read (a[i]);
    
      if a[i]<min[1] then
           min[1]:=a[i];

      if a[i]>max[1] then
           max[1]:=a[i];
           
    write ('b[',i,']= ');
    read (b[i]);
    
      if b[i]<min[2] then
           min[2]:=b[i];

      if b[i]>max[2] then
           max[2]:=b[i];
           
  end;

writeln ('MIN(A)= ', min[1]);
writeln ('MAX(A)= ', max[1]);
writeln ('MIN(B)= ', min[2]);
writeln ('MAX(B)= ', max[2]);

end.

Выкладывайте хотя бы коды своих попыток, чтобы убедиться в том, что вы хотя бы пытаетесь что-то сделать. Иначе вы зря потратите время программистов.

[spinogryz_ua]

Эх... медленный я... =(

Ну ничего. Зато у автора темы теперь 2 варианта будет =))

uses crt;
var
a:array[1..10] of integer;
b:array[1..10] of integer;
i, maxA, maxB, minA, minB:integer;
begin
minA:=100;
maxA:=-100;
minB:=100;
maxB:=-100;
randomize;
for i:=1 to 10 do
    begin
         a[i]:=random(50);
         b[i]:=random(50);
         
         if a[i]<minA then
            minA:=a[i];
         if a[i]>maxA then
            maxA:=a[i];
         if b[i]<minB then
            minB:=b[i];
         if b[i]>maxB then
            maxB:=b[i];
    end;
for i:=1 to 10 do
    write(a[i]:3,' ');
writeln;
for i:=1 to 10 do
    write(b[i]:3,' ');
writeln;
writeln('maximal for a - ',maxA);
writeln('minimal for a - ',minA);
writeln('maximal for b - ',maxB);
writeln('minimal for b - ',minB);
end.

[legion726]

Спасибо большое Jaiden и spinogryz_ua
Сейчас буду разбираться на примере, как пи шиться аналогичные.