Даны два одномерных массива (a1 ,a2 , ,a15), (b1, b2 , , b15). Вычислить: (a1 + b15) (a2 + b14), , (a15 + b1)

@serg235 · Регистрация: 17.03.2013

помогите решить, пожалуйста!
Даны два одномерных массива (a₁ ,a₂ , ...,a₁₅), (b₁, b₂ , ... , b₁₅). Вычислить: (a₁ + b₁₅) (a₂ + b₁₄),... , (a₁₅ + b₁).

@CodeR · 17.03.2013, 12:24

Pascal

Const n=15;
Var A,B:array[1..n] of integer;
    i:byte;
Begin
    writeln('Массив A');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    writeln('Массив B');
    For i:=1 to n do
    Begin
      B[i]:=random(31)-15;
      write(B[i]:4);
    End;
    writeln;
    For i:=1 to n do
     write(A[i]+B[n-i+1]:4);
    readln;
End.

@serg235 · 17.03.2013, 17:43 **[ТС]**

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

@serg235 1 / 1 / 1 Регистрация: 17.03.2013 Сообщений: 69
		1
	Даны два одномерных массива (a1 ,a2 , ,a15), (b1, b2 , , b15). Вычислить: (a1 + b15) (a2 + b14), , (a15 + b1) 17.03.2013, 11:50. Показов 2333. Ответов 2 Метки нет (Все метки) помогите решить, пожалуйста! Даны два одномерных массива (a₁ ,a₂ , ...,a₁₅), (b₁, b₂ , ... , b₁₅). Вычислить: (a₁ + b₁₅) (a₂ + b₁₄),... , (a₁₅ + b₁). __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@serg235 1 / 1 / 1 Регистрация: 17.03.2013 Сообщений: 69
	17.03.2013, 17:43 [ТС]	3
	Спасибо большое! 0

Опции темы

Даны два одномерных массива (a1 ,a2 , ,a15), (b1, b2 , , b15). Вычислить: (a1 + b15) (a2 + b14), , (a15 + b1)

Решение