Заполнить два массива (из 10 элементов каждый) случайными числами. Сформировать тр?
Заполнить два массива (из 10 элементов каждый) случайными числами. Сформировать тр??тий массив, каждый элемент которого равен полусумме соответствующих элементов исходных массивов.
Пример:
Исходные массивы:
0 4 -3 2 -7 0 5 -6 3 1 5 2 0 -4 3 8 -3 8 -9 5
Конечный массив:
2.5 3 -1.5 -1 -2 4 1 1 -3 3
В паскале
Гость
Ответ(ы) на вопрос:
Гость Const
n=10;
var
i:integer;
a,b:array[1..n] of integer;
c:array[1..n] of real;
begin
Randomize;
for i:=1 to n do begin
a[i]:=Random(20);
Write(a[i]:5);
b[i]:=Random(20);
c[i]:=(a[i]+b[i])/2
end;
Writeln;
for i:=1 to n do Write(b[i]:5);
Writeln;
for i:=1 to n do Write(c[i]:5:1);
Writeln
end.
Пример
12 15 9 18 13 10 6 15 4 11
3 16 3 0 17 0 19 12 0 5
7.5 15.5 6.0 9.0 15.0 5.0 12.5 13.5 2.0 8.0
Не нашли ответ?
Похожие вопросы