Необходимо получить третий массив, из имеющихся двух массивов А(14) и B(14). Посредством перемножения элементов первого массива на элементы второго, взятых в обратном порядке. Помогите написать программу в FreePascal. Все массивы вывести на экран.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Const n=10;var a,b,c:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('A:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i]:4);
end;
writeln;
writeln('B:');
for i:=1 to n do begin
b[i]:=random(21);
write(b[i]:4);
end;
writeln;
for i:=1 to n do
c[i]:=a[i]*b[n-i+1];
writeln('C:');
for i:=1 to n do write(c[i]:4);
writeln;
end.
Пример:
A:
20 10 18 11 5 9 0 9 10 8
B:
12 7 20 15 8 19 6 16 1 2
C:
40 10 288 66 95 72 0 180 70 96