Question

Помогите решить задачу в ПАСКАЛЕ....найти скалярное произведение двух массивов а и в, состоящих из 5 элементов каждый . которые содержат случайные числа от 2 до 9 включительно

Answer 1

Ответ:

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.

Answer 2

Вот пример кода на Pascal, который находит скалярное произведение двух массивов a и b длиной 5 элементов каждый:

lessCopy code
program ScalarProduct;
var
  a, b: array[1..5] of integer; // объявляем два массива из 5 элементов каждый
  i, product, scalar_product: integer; // product - произведение текущих элементов, scalar_product - итоговое скалярное произведение

begin
  // заполняем массивы случайными числами от 2 до 9 включительно
  for i := 1 to 5 do begin
    a[i] := random(8) + 2;
    b[i] := random(8) + 2;
  end;

  // выводим массивы на экран
  writeln('Массив a:');
  for i := 1 to 5 do write(a[i], ' ');
  writeln;
  writeln('Массив b:');
  for i := 1 to 5 do write(b[i], ' ');
  writeln;

  // находим скалярное произведение
  scalar_product := 0;
  for i := 1 to 5 do begin
    product := a[i] * b[i];
    scalar_product := scalar_product + product;
  end;

  // выводим результат на экран
  writeln('Скалярное произведение массивов a и b равно ', scalar_product);
end.

Программа генерирует два массива случайных чисел от 2 до 9 включительно, выводит их на экран, находит скалярное произведение и выводит его на экран.