Даны α1, α2, …, α8; γ1, γ2, …, γ5, составить новый массив

@Dvestyodin · Регистрация: 26.10.2016

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

Даны α1, α2, …, α8; γ1, γ2, …, γ5.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\huge a_j=\gamma_j^2\cdot\sum_{i=1}^{8}\alpha_i^2$

@Павел Л · 27.10.2016, 15:06

Pascal

var
  a: array[1..8]of integer;
  b: array[1..5]of integer;
  r: array[1..5]of integer;
  i, sum: integer;
 
begin
  for i := 1 to 8 do
    a[i] := random(-10, 10);
  
  for i := 1 to 5 do
    b[i] := random(-10, 10);
  
  for i:=1 to 8 do
  sum += a[i] * a[i];
  
  for i := 1 to 5 do
  r[i] := b[i] * b[i] * sum;
  
  for i:=1 to 5 do
  write(r[i],' ');  
end.

Добавлено через 1 минуту
a += b это a := a + b

@Dvestyodin 0 / 0 / 0 Регистрация: 26.10.2016 Сообщений: 3
		1
	Даны α1, α2, …, α8; γ1, γ2, …, γ5, составить новый массив 26.10.2016, 15:38. Показов 3130. Ответов 1 Метки нет (Все метки) Даны α1, α2, …, α8; γ1, γ2, …, γ5. $https://www.cyberforum.ru/cgi-bin/latex.cgi?\huge a_j=\gamma_j^2\cdot\sum_{i=1}^{8}\alpha_i^2$ 0

	27.10.2016, 15:06

Даны α1, α2, …, α8; γ1, γ2, …, γ5, составить новый массив

Решение