Дан линейный вещественный массив а. Найти:

@Любовь27 · Регистрация: 14.02.2018

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

Здравствуйте, помогите пожалуйста.
Дан линейный вещественный массив а. Найти: a[1]a[n]+a[2]a[n-1]+...+a[n]a[1].
Заранее спасибо)

@Puporev · 12.11.2018, 10:48

Сообщение от Любовь27

a[1]a[n]

Это произведение?

@Любовь27 · 12.11.2018, 11:09 **[ТС]**

Да, это произведение

@Puporev · 12.11.2018, 12:02

Pascal

var a:array[1..100] of real;
    n,i:integer;
    s:real;
begin
randomize;
repeat
write('Введите размер массива от 2 до 100 n=');
readln(n);
until n in [2..100];
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
s:=0;
for i:=1 to n do
s:=s+a[i]*a[n-i+1];
write('Сумма=',s:0:2);
end.

@Любовь27 0 / 0 / 0 Регистрация: 14.02.2018 Сообщений: 17
		1
	Дан линейный вещественный массив а. Найти: 11.11.2018, 20:52. Показов 1260. Ответов 3 Метки нет (Все метки) Здравствуйте, помогите пожалуйста. Дан линейный вещественный массив а. Найти: a[1]a[n]+a[2]a[n-1]+...+a[n]a[1]. Заранее спасибо) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.11.2018, 10:48	2
	Сообщение от Любовь27 a[1]a[n] Это произведение? 0

@Любовь27 0 / 0 / 0 Регистрация: 14.02.2018 Сообщений: 17
	12.11.2018, 11:09 [ТС]	3
	Да, это произведение 0

	12.11.2018, 12:02

Дан линейный вещественный массив а. Найти:

Решение