Найти четные значения диагоналей матрицы - Pascal
Формулировка задачи:
В квадратной матрице со стороной 20, заполненной случайными числами от 1 до 9, найти и вывести на экран четные значения диагоналей матрицы.
Решение задачи: «Найти четные значения диагоналей матрицы»
textual
Листинг программы
program pr1;
const matrixSize=20; minVal=1;maxVal=9;
var
matrix:array[1..matrixSize, 1..matrixSize] of byte;
evenValOfDiags:array[1..matrixSize*2] of byte;
index:byte;
row,column:byte;
begin
Randomize();
for row:=1 to matrixSize do begin
for column:= 1 to matrixSize do begin
matrix[row,column]:=Random(maxVal-minVal+1)+minVal; Write(matrix[row,column],' ');
if ((row=column ) or ((abs(column-matrixSize-1))=row)) and (not odd(matrix[row,column])) then begin
inc(index); evenValOfDiags[index]:=matrix[row,column];
end;
end; writeln;
end;
WriteLn('Четные числа в диагоналях матрицы: ');
For column:=1 to index do begin
write(evenValOfDiags[column],'; ');
end; readln;
end.