Одномерные массивы в Паскале...

[hohol90]

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

По двум заданным одномерным массивам формируется третий, содержащий попарно максимальные числа.

например:
дан массив №1: 2 4 1 8 9
дан массив №2: 6 3 2 1 3
ответ: 6 4 2 8 9

[UnChanter]

var
 i,n:integer;
 a,b,c: array[1..100] of integer;
begin
........
 for i:=1 to n do
  if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];
......

[Валк]

Люди помогите сделать эту прогу... Горю... Вылажите еекод плиз, буду приязнателен

[Sparkman]

Сообщение от Валк

Люди помогите сделать эту прогу... Горю... Вылажите еекод плиз, буду приязнателен

var i:integer;
    m1,m2,m3:array [1..5] of integer;
begin
     randomize;
     for i:=1 to 5 do
     begin
          m1[i]:=random(9);
          write(m1[i]);
          write(' ');
     end;
     writeln;
     for i:=1 to 5 do
     begin
          m2[i]:=random(9);
          write(m2[i]);
          write(' ');
     end;
     writeln;
     for i:=1 to 5 do
     begin
          if m1[i]>m2[i] then m3[i]:=m1[i] else m3[i]:=m2[i];
          write(m3[i]);
          write(' ');
     end;
     readln;
end.