Question

Нужно решить задачу на языке Pascal в среде разработке PascalABC.net

Но использовать можно только (циклы for, while, repeat) ; (условия if else); (процедуры и функции); (одномерные и двумерные массивы в частности для данного задания матрица создается с помощью двумерной матрицы);

Задание: Задана матрица 4х4 определить сумму ее элементов и количество отрицательных чисел в матрице

Answer 1

const N=4;

var

   mas: array[1..N,1..N] of integer;

   i, j, sum, count: integer;

 

begin

 sum:=0;

 count:=0;

   for i := 1 to N do

       for j := 1 to N do

         begin

         write('Введите [',i,',',j,'] элемент массива: ');

           readln(mas[i,j]);

           sum:=sum+mas[i,j];

           if mas[i,j] < 0 then

             count:=count+1;

           end;

        writeln('Сумма элементов массива: ', sum);

        writeln('Количество отрицательных элементов массива: ', count);

end.