Все элементы исходной матрицы замените нулями, а каждый элемент главной диагонали замените его номером

@Felix53 · Регистрация: 24.03.2020

Студворк — интернет-сервис помощи студентам

Разработайте программу, заполняющую матрицу А[5,5] случайными целыми числами, находящимися в интервале от 1 до 40. Все элементы исходной матрицы замените нулями, а каждый элемент главной диагонали замените его номером.
Нужно написать код, помогите подалуйста, можете с комментариями чтобы понять

@ZX Spectrum-128 · 06.04.2020, 18:46

Заменить все элементы главной диагонали матрицы на нули

Pascal

const
  n = 5;
 
var
  a: array[1..n, 1..n] of integer;
  i, j: byte;
 
begin
  randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := 1 + random(40);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Измененный массив');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if j <> i then 
        a[i, j] := 0
      else
        a[i, j] := i;
      write(a[i, j]:4);
    end;
    writeln;
  end;
end.

@Felix53 0 / 0 / 0 Регистрация: 24.03.2020 Сообщений: 18
		1
	Все элементы исходной матрицы замените нулями, а каждый элемент главной диагонали замените его номером 06.04.2020, 18:36. Показов 1173. Ответов 1 Метки нет (Все метки) Разработайте программу, заполняющую матрицу А[5,5] случайными целыми числами, находящимися в интервале от 1 до 40. Все элементы исходной матрицы замените нулями, а каждый элемент главной диагонали замените его номером. Нужно написать код, помогите подалуйста, можете с комментариями чтобы понять 0

Опции темы

Все элементы исходной матрицы замените нулями, а каждый элемент главной диагонали замените его номером

Решение