Разработка программ двумерных массивов. Использование алгоритма ввода/вывода

Лабораторная работа № 5.

Тема: разработка программ двумерных массивов.

Цель: научиться использовать алгоритм ввода/вывода, ознакомиться с работой в среде Turbo Pascal, написать и отладить программу двумерных массивов.

Порядок выполнения работы:

1. Набрать индивидуальную программу, отладить её и результат исполнения программы занести в отчёт.
2. Вставить в эту программу оператор ввода таким образом, чтобы на экране была видна ваша фамилия а результаты подчёркивались горизонтальной линией.

Ход работы:

1. Подсчитать сумму элементов главной диагонали, делящихся на 7 и стоящих на чётных местах.

program laba31;

var                                                                                                                                            Тест:

s,i,j,n,m:integer;                                                                                                                       n=4; m=4

A: array[0..100,0..100] of integer;                                                                                          A={1,2,3,4}

B: array[0..100,0..100] of integer;                                                                                               {1,7,3,4}

Begin                                                                                                                                            {1,2,3,4}

writeln ('Лабораторная работа 5, Рыженко Артура гр. ТОС-21');                                          {1,2,3,7}

writeln ('Введите количество строк массива:');                                                                   Результат:

readln (n);                                                                                                                                 14. 

writeln ('Введите количество столбцов массива:');

readln (m);

writeln('Введите элементы массива:');

for i:=1 to n do

for j:=1 to m do

readln (A[i,j]);

s:=0;

for i:=1 to n do

begin

if (A[i,j] mod 7=0) and (i mod 2=0)

then s:=s+A[i,i];

end;

writeln('Сумма элементов главной диагонали массива A(N*M) равна:  ',s);

writeln ('Для завершения нажмите enter');

readln;

end.

2. Дана матрица A(N*M), найти произведение чётных элементов 2-й и последней диагонали.

program laba31;

var                                                                                                                                                   Тест:

P,i,j,n,m:integer;                                                                                                                              n=3; m=5

A: array[0..100,0..100] of integer;                                                                                                   A={1,2,5,0,9}

B: array[0..100,0..100] of integer;                                                                                                         {4,7,3,1,6}

Begin                                                                                                                                                      {1,4,2,24}

writeln ('Лабораторная работа 4, Рыженко Артура гр. ТОС-21');                                             Результат:

writeln ('Введите количество строк массива:');                                                                           1536.

readln (n);

writeln ('Введите количество столбцов массива:');

readln (m);

writeln('Введите элементы массива:');

for i:=1 to n do

for j:=1 to m do

readln (A[i,j]);

P:=1;

for j:=1 to m do

begin

if A[2,j] mod 2=0

then P:=P*A[2,j];

if A[n,j] mod 2=0

then P:=P*A[n,j];

end;

writeln('Сумма элементов главной диагонали массива A(N*M) равна:  ',P);

writeln ('Для завершения нажмите enter');

readln;

end.