Найти сумму элементов, расположенных ниже главной диагонали квадратной матрицы - Pascal ABC

  1. Помогите пожалуйста написать программу: Найти сумму элементов, расположенных ниже главной диагонали квадратной матрицы.


textual

Код:

uses crt;
const N=10;
var arr:array[1..N,1..N] of integer;
    i,j,sum:integer;
begin
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
   arr[i,j]:=random(10);
   if i-1>=j then
    begin
    sum:=sum + arr[i,j];
    textcolor(red);
    end
   else
    textcolor(blue);
   write(arr[i,j],' ');
   end;
 writeln();
 end;
textcolor(black);
writeln('Cумма элементов, расположенных ниже главной диагонали: ', sum);
end.


Похожие ответы
  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Заранее спасибо!

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

  1. Дан прямоугольный массив A(m,n). Посчитать сумму элементов, у которых разность номера строки и номера столбца равна Решите пожалуйста через двумерный массив. Добавлено через 6 часов 11 минут Дан прямоугольный массив A(m,n). Посчитать сумму элементов, у которых разность номера строки и номера столбца равна 1

  1. Отсортировать каждый столбе матрицы с номером 2i по возрастанию элементов, а с номером 2i +1 по убыванию элементов методом вставки Все отсортировать по убыванию или возрастанию получается, а конкретно столбцы нет, думаю тут должен быть if then else Но куда его ставить и что должно быть условием мне не понятно

  1. Дан целочисленный массив А[4][3]. Найти количество элементов, кратных 4 и меньших 20 .Результат вывести на экран.

  1. буду благодарен за помощь. Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле. Если файла с таким именем не существует, то вывести −1.Добавлено через 54 минуты помогитееее :-(Добавлено через 1 минуту

  1. Всем привет,нужна помощь. Написать программу которая вычисляет произведение элементов,которые меньше заданного числа

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