Нужно решить задачу на языке Pascal в среде разработке PascalABC.net
Но использовать можно только (циклы for, while, repeat) ; (условия if else); (процедуры и функции); (одномерные и двумерные массивы в частности для данного задания матрица создается с помощью двумерной матрицы);
Задание: Задана матрица 4х4 определить сумму ее элементов и количество отрицательных чисел в матрице
Но использовать можно только (циклы for, while, repeat) ; (условия if else); (процедуры и функции); (одномерные и двумерные массивы в частности для данного задания матрица создается с помощью двумерной матрицы);
Задание: Задана матрица 4х4 определить сумму ее элементов и количество отрицательных чисел в матрице
More Questions From This User See All
Answers & Comments
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.