Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Массивы Контрольная работа на тему ввод/вывод двумерного массива

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

Оцените материал
(1 Голосовать)

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

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

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

  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.
Прочитано 10564 раз

Авторизация



Счетчики