Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение.

@сашка малашка · Регистрация: 03.12.2013

Author24 — интернет-сервис помощи студентам

@Dream_Angel · 04.05.2014, 17:44

Pascal

program Skalyarnoe proizvedenie;
uses crt;
Var a, b: array [1..50] of integer;
n, s, i: integer;
Begin
Writeln ('Введите количество элементов массива a');
Readln (n);
For I:=1 to n do
Begin
Write('a[', i, ']=');
Read (a[i]);
end;
Begin
Writeln ('Введите количество элементов массива b');
Readln (n);
For I:=1 to n do
Begin
Write('b[', i, ']=');
Read (b[i]);
end;
s:=0;
For I:=1 to n do
s:=s+a[i]*b[i];
s:=s;
Writeln;
For I:=1 to n do
write (s);
end;
end.

P.S. Я каждую часть программы выполняю в отдельном цикле.

@сашка малашка 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 11
		1
	Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение. 05.12.2013, 18:53. Показов 4535. Ответов 1 Метки нет (Все метки) Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение. 0

	04.05.2014, 17:44

Опции темы

Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение.

Решение