Нужна Помощь.заранее Благодарен.

Oleg1997

New member
25.12.2014
2
0
#1
Даны два массива А(i) и B(i).Создать массив C(i) каждый элемент которого будет равен наименьшему каждой пары элементов из А и В.(Элементы массива А и В вводить с клавиатуры).

Мой Код :
program zadaca46;
uses crt;
const n=20;
var
a:array[1..n] of byte;
b:array[1..n] of byte;
c:array[1..n] of byte;
i:integer;
Begin
begin
writeln('vvedite elementi massiva A');
For i:=1 to n do
Readln(A:4);
end;
Begin
Writeln('vvedite elementi massiva B');
For i:=1 to n do
readln(B:4);
end;
begin
writeln('massiv C');
For i:=1 to n do
Begin
c:=min(a,b);
write(c:4);
end;
readkey;
end;
end.