Даны действительные числа X1,...,X10, Y1,...,Y10

@Vavan_monster · Регистрация: 25.12.2010

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

Даны действительные числа X1,...,X10, Y1,...,Y10 . Получить cумму 10 i=1 XiYi . Как упростить решение,если исходные данные будут иметь следующий порядок: X1Y1,..., X10Y10 ?

28.12.2010, 09:12

Нашёл в поисковике вроде то

Pascal

var
x, y: array [1..10] of real;
i: integer;
s: string;
result: real;
begin
for i:=1 to 10 do
begin
Str(i, s);
Write('Введите X['+s+'] ');
ReadLn(x[i]);
Write('Введите Y['+s+'] ');
ReadLn(y[i]);
end;
 
result:=0;
for i:=1 to 10 do
begin
result:=result+x[i]*y[i];
end; 
 
Write('Ответ = ');
WriteLn(result);
end.
{Quim2005}

@Vavan_monster · 28.12.2010, 17:08 **[ТС]**

спаисбо большое!!!!!!!!!!!

@Vavan_monster 1 / 1 / 0 Регистрация: 25.12.2010 Сообщений: 15
		1
	Даны действительные числа X1,...,X10, Y1,...,Y10 25.12.2010, 18:00. Показов 2142. Ответов 2 Метки нет (Все метки) Даны действительные числа X1,...,X10, Y1,...,Y10 . Получить cумму 10 i=1 XiYi . Как упростить решение,если исходные данные будут иметь следующий порядок: X1Y1,..., X10Y10 ? 0

@Vavan_monster 1 / 1 / 0 Регистрация: 25.12.2010 Сообщений: 15
	28.12.2010, 17:08 [ТС]	3
	спаисбо большое!!!!!!!!!!! 0

Даны действительные числа X1,...,X10, Y1,...,Y10

Решение