#include <iostream>
#include <iomanip>
#include <stdlib.h>
#include <time.h>
using namespace std;
int main()
{
const int size = 4;
int mat[size][size];
srand(time(NULL));
for (int i = 0; i < size; i++)
{
for (int j = 0; j < size; j++)
{
mat[i][j] = 0 + rand() % 11;
}
}
cout << " Matrix:" << '\n';
for (int i = 0; i < size; i++)
{
for (int j = 0; j < size; j++)
{
cout << setw(4) << mat[i][j];
}
cout << '\n' << '\n';
}
int sum = 0;
for (int i = 0; i < size; i++)
{
for (int j = size; j < size; j++)
{
sum += mat[i][j];
}
}
cout << "Sum:" << sum << '\n';
return 0;
//PascalABC.NET v3.3 1633
var arr: array [1..6, 1..6] of integer;
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
arr[i, j]:=random(-49, 50);
writeln('Исходный массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
var num:=0;
for var i:=1 to 6 do
if arr[i, 2] < 0 then num += 1;
writeln('Количество отрицательных элементов второго столбца: '+num);
for var i:=1 to 6 do
for var j:=1 to 6 do
if arr[i, j] > 0 then arr[i, j]:=-49;
writeln('Новый массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
end.
# PascalABC.NET 3.7 #
# .NET Framework 4.8 #
begin
ReadSeqIntegerWhile(x -> x > 0).Count(x -> x mod 5 = 0).Println();
end.