Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Составить программу формирующую 3 одномерных массива.Первые 2 заполняются случайными числами от 1 до 10.3-ий массив представляет из себя сумму первых двух(а1+b1;a2+b2).Использовать минимальное количество циклов

Ответ оставил Гость

Var
a, b, c: array [1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
begin
a[i]:= random(10)+1;
writeln(a[, i, ] = , a[i],   );
b[i]:= random(10)+1;
writeln(b[, i, ] = , b[i],   );
c[i]:=a[i]+b[i];
writeln(c[, i, ] = , c[i],   );
end;
end.