помогите составить алгоритм
| Код |
program exampl2;
var
a : array [1..8] of integer;
b : array [1..8] of integer;
c : array [1..8, 1..8] of integer;
i, j : integer;
begin
Randomize;
for i := 1 to 8 do
begin
a[i] := random(10);
b[i] := random(10);
end;
for i := 1 to 8 do
for j := 1 to 8 do
if i <> j then
c[i, j] := 0
else
c[i, j] := a[i] * b[j];
for i := 1 to 8 do
for j := 1 to 8 do
writeln('i :', i,'j :',j,' = ', c[i, j]);
readln;
end.
|
УСЛОВИЕ ЗАДАЧИ
Составить алгоритм м программу вычисления произведений s двух массивов a и b, каждый из которых содержит 8 элементов, причем считать при этом, что если индексы a и b совпадают, то произведение ai bi не равно нулю, а если индексы различны, то их произведение необходимо приравнять нулю и вычисления не производить
|