Из двух целочисленных массивов одинаковой размерности сформировать третий массив, каждый элемент которого равен меньшему из соответствующих элементов данного массива.
Answers & Comments
danabel2000
Var a,b,c:array[1..5]of integer; i:integer; begin for i:=1 to 5 do read(a[i]); for i:=1 to 5 do read(b[i]); for i:=1 to 5 do begin if(a[i]<b[i])then c[i]:=a[i] else c[i]:=b[i];write(c[i],' '); end;end.
Answers & Comments
i:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do read(b[i]);
for i:=1 to 5 do begin
if(a[i]<b[i])then c[i]:=a[i] else c[i]:=b[i];write(c[i],' ');
end;end.