В двумерном массиве первый индекс – строка, второй – столбец. В трёхмерном - строка, столбец, номер матрицы и т. д.

Пример: Найти сумму элементов одномерного массива.

Program Project5_1;

{$APPTYRE CONSOLE} uses SysUtils;

begin writeln(‘input a[‘,i,’]’);

Program Project5_1а;

{$APPTYRE CONSOLE} uses SysUtils;

begin writeln(‘input a[‘,i,’]’);

Program Project5_2;

{$APPTYRE CONSOLE} uses SysUtils;

begin writeln(‘input a[’,i,’,‘,j,’]’);

writeln(‘main diagonal:’);

Program Project5_2a;

{$APPTYRE CONSOLE} uses SysUtils;

begin writeln(‘input a[’,i,’,‘,j,’]’);

writeln(‘main diagonal:’);

сив а затем выводит его в виде:

Конечно вместо а₁₁ и т. д. до а₄₄ выводятся соответствующие им значения, а после выводяся значения элементов, лежащих на главной диагонали, как в предыдущей программе.

Program Project5_2b;

{$APPTYRE CONSOLE} uses SysUtils;

Begin writeln(‘input sise array < 40’);

Readln(n);

for i:=1 to n do for j:=1 to n do

begin writeln(‘input a[‘,i,’,’, j,’]’); readln(a[i,j]; end;

writeln(‘main diagonal:’);

Program Project5_3;

{$APPTYRE CONSOLE} uses SysUtils;

Begin writeln(‘input sise array < 40’);

Readln(n);

for i:=1 to n do for j:=1 to n do

begin writeln(‘input a[‘,i,’,’, j,’]’); readln(a[i,j]; end;

{В массив В находятся и заносятся элементы не главной (дополнительной) диагонали }

writeln(‘not main diagonal:’);

Программа 5_4 находит в массиве размером до 20 строк, и 10 столбцов строку, содержащую наименьший элемент.

Program Project5_4; {$APPTYRE CONSOLE} uses SysUtils;

Begin writeln (input m,n); readln(m,n);

begin writeln(‘input a[‘,i,’,’, j,’]’); readln(a[i,j]; end;

writeln(‘string min element’);

Следующая программа 5_5 вводит матрицу, размером 5х7 и вектор – 7 элементов

будет равно количеству строк матрицы.

Program Project5_5; {$APPTYRE CONSOLE} uses SysUtils;

begin writeln(‘input a[‘,i,’,’, j,’]’); readln(a[i,j]; end;

for j:=1 to 7 do

begin writeln(‘input b[‘, j,’]’); readln(b[j]; end;

{Вывод массивов а и в}

{Вывод результата}

Программа 5_6 тоже перемножает матрицу на вектор. Здесь матрица может иметь размеры 50х70, соответственно вектор может иметь размер до 70, а вектор с до 50 элементов.

Program Project5_6;{$APPTYRE CONSOLE} uses SysUtils;

Begin writeln(‘input size array a’);

begin writeln(‘input a[‘,i,’,’, j,’]’); readln(a[i,j]; end;

for j:=1 to m do

begin writeln(‘input b[‘, j,’]’); readln(b[j]; end;

for i:=1 to n do {начало перемножения матрицы на вектор}

begin c[i]:=0;

for j:=1 to m do

{Вывод результата}

writeln; for i:=1 to n do

Варианты заданий.

Вариант 1.

Дан массив А. Сформировать массив В из наибольших элементов каждой строки массива А.

В массиве поменять местами строки.

В массиве поменять местами 1 и 3 строки.

В массиве все элементы разделить на наибольший элемент первого столбца.

Вариант 5.

Дан массив А. Сформировать массив В из элементов чётных столбцов и массив С из элементов нечётных столбцов.

c=4,7

Дата добавления: 2015-08-17