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

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

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

Ответ

Ответ дан

DenisVirch

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.