Delphi-Help

Контрольная работа на тему ввод/вывод двумерного массива

Типовая задача вынесенная на контрольную работу

Постановка задачи:

1. Дана квадратная матрица целых чисел размерностью 6х6
2. Заполнить матрицу случайными числами из интервала [0,100)
3. Вывести полученную матрицу на экран.
4. Выполнить следующий анализ массива и изменение массива:
   • определить среднее арифметическое элементов двумерного массива и увеличить в два раза элементы находящиеся на главной диагонали.

program matrix1;

const

    n = 6;

var

    matrix:array[1..n, 1..n] of integer;

    i,j:byte;

    s:real;

begin

randomize;

s := 0;

for i := 1 to n do

begin

    for j := 1 to n do

    begin

        matrix[i, j] := random(100);

        write(matrix[i, j]);

        s := s + matrix[i, j]

    end;

    writeln;

    matrix[i, i] := matrix[i, i] * 2;

end;

s := s / (n * n);

writeln;

writeln('Вывод измененного массива');

writeln;

for i := 1 to n do

begin

    for j := 1 to n do

        write(matrix[i, j]:4);

    writeln

end;

writeln;

writeln('Среднее арифметическое элементов матрицы s = ', s:2:2)

end.