Program Primer_17;

Uses WinCrt;

Const n = 5;

k = 2*n - 1;

mass_min = -50;

mass_max = 50;

Var i, j, t : Integer;

v : Array [1..k] Of Integer;

a : Array [1..n, 1..n] Of Integer;

Begin

ClrScr;

Randomize;

For i:=1 To n Do

For j:=1 To n Do

a[i, j]:= Random(mass_max – mass_min + 1) + mass_min;

WriteLn;

WriteLn(‘Исходный массив:’);

For i:=1 To n Do

Begin

For j:=1 To n Do

Write(a[i, j]:5);

WriteLn;

End;

WriteLn;

For i:=1 To k Do обнуляем выходной вектор

v[i]:= 0;

For i:=1 To n Do

For j:=1 To n Do

Begin

t:= i + j - 1; определяем индекс элемента вектора

v[t]:= v[t] + a[i,j]; вычисляем сумму элементов массива

End;

WriteLn;

WriteLn(‘Полученный вектор’);

WriteLn;

For i:=1 To k Do

Write(Vector[i]:5);

WriteLn;

ReadLn;

End.

18. Задать элементы целочисленного квадратного массива a_nn случайными числами, лежащими в диапазоне от mass_min до mass_max. Исходный массив вывести на экран построчно. Заполнить вектор v_k суммами элементов исходного массива, расположенных параллельно главной диагонали (k = 2n – 1).

Для решения этой задачи рассмотрим исходный массив поэлементно:

a₁₁ a₁₂ a₁₃a₁₄ . . . a_1n

a₂₁ a₂₂ a₂₃a₂₄ . . . a_2n

a₃₁ a₃₂ a₃₃a₃₄ . . . a_3n

. . . . . . . . . . . . .

a_n1 a_n2 a_n3a_n4 . . . a_nn

Заменим элементы исходного массива элементами вычисляемого вектора:

v_n v_n-1 v_n-2v_n-3 . . . v₂ v₁

v_n+1 v_n v_n-1v_n-2 . . . v₃v₂

v_n+2 v_n-1 v_nv_n-2 . . . v₄ v₃

. . . . . . . . . . . . . . . .

V₂_n_-1 v₂_n_-2 v₂_n_-3v₂_n_-4 . . . v_n₊₁v_n

Алгоритм очевиден:

Program Primer_18;

Uses WinCrt;

Const n = 5;

k = 2*n - 1;

mass_min = -50;

mass_max = 50;

Var i, j, m, t : Integer;

v : Array [1..k] Of Integer;

a : Array [1..n, 1..n] Of Integer;

Begin

ClrScr;

<52 53 545556 57 58 >

Дата добавления: 2015-08-08; просмотров: 465;