ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! Заданы массивы A и B чисел (N=10) случайным образом....

Question

ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА!

Заданы массивы A и B чисел (N=10) случайным образом. Сформировать новый массив, каждый элемент которого равен: сумме этих массивов ; минимальную из соответствующих элементов этих массивов.

Answer 1

type ar10 = array[1..10] of integer;
var a, b,c,d: ar10;
i: integer;

procedure show(a:ar10);
begin
    for i := 1 to 10 do
        write(a[i], ' ');
end;

begin
    randomize;
    for i := 1 to 10 do begin
        a[i] := random(1000);
        b[i] := random(1000);
        c[i] := a[i] + b[i];
        d[i] := min(a[i] ,b[i]);
    end;

    show(a);
    show(b);
    show(c);
    show(d);
end.

Answer 2

1.var
a, c, b: array[1..10] of integer;
i: integer;

begin
randomize;
for i := 1 to 10 do begin a[i] := random(1000);b[i] := random(1000); end;
for i := 1 to 10 do write(a[i], ' ');
for i := 1 to 10 do write(b[i], ' ');
for i := 1 to 10 do c[i] := a[i] + b[i];
for i := 1 to 10 do write(c[i], ' ');
end.

 

2.

var
a, c, b: array[1..10] of integer;
i: integer;
function min(a,b:integer):integer;
begin
if a>b then min:=b else min:=a;
end;
begin
randomize;
for i := 1 to 10 do begin a[i] := random(1000);b[i] := random(1000); end;
for i := 1 to 10 do write(a[i], ' ');
for i := 1 to 10 do write(b[i], ' ');
for i := 1 to 10 do c[i] := min(a[i],b[i]);
for i := 1 to 10 do write(c[i], ' ');
end.