Все элементы ниже главной диагонали заменить нулем - Turbo Pascal

  1. все элементы ниже главной диагонали заменить нулем.Как это сделать?


textual

Код:

Const
  n=5;
Var
  x: Array [1..10,1..10] of Integer;
  i,j: Byte;
BEGIN
Randomize;
Writeln('Исходный массив:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(9)+1;
    Write(x[i,j]:3);
  end;
  Writeln
end;
Writeln('Полученный массив:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    If i>j Then x[i,j]:=0;
    Write(x[i,j]:3);
  end;
  Writeln
end;
Readln
END.


Похожие ответы
  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. 1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

  1. Дана целочисленная матрица размерности (nxn ). 1. Если элементы, стоящие на главной диагонали являются четными числами, то к каждому максимальному элементу столбца добавить минимальный элемент соответствующей строки. В противном случае матрицу оставить без изменения.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом линейного выбора с подсчётом

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. Здравствуйте, такая задача. Есть матрица (n на 2n) . Найти номер первой строки все элементы которой кратны 5. Использовать только цикл while. Поиск решения сделать с процедурой. Входные данные и результат выписать в текстовый файл. Я написал саму программу. Однако появилась такая проблема. После считывания данных программа не закрывается (остается висеть черным окном). После пошаговой проверки оказалось, что проблема в процедуре. Наверное, нет выхода из цикла. Помогите, пожалуйста найти ошибку.

  1. Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны и положительны

  1. В массиве Z1, Z2,…, Z30 найти минимальный из элементов, стоящих на нечётных местах. Домножить на него все элементы, расположенные до найденного минимального.