summ это произведение всех элементов
массив C - это скалярное произведение
Объяснение:
Program test;
type
arr=array[0..5] of integer;
var
summ,i:integer;
a,b,c:arr;
begin
summ:=0;
for i:=1 to 5 do
a[i]:=random(8)+2;
b[i]:=random(8)+2;
summ:=summ+(a[i]*b[i]);
c[i]:=a[i]*b[i];
Writeln(c[i]);
end;
Writeln(summ);
end.
summ это произведение всех элементов
массив C - это скалярное произведение
Объяснение:
Program test;
type
arr=array[0..5] of integer;
var
summ,i:integer;
a,b,c:arr;
begin
summ:=0;
for i:=1 to 5 do
begin
a[i]:=random(8)+2;
b[i]:=random(8)+2;
summ:=summ+(a[i]*b[i]);
c[i]:=a[i]*b[i];
Writeln(c[i]);
end;
Writeln(summ);
end.