1. В массиве B[5,6], значения частей находятся в промежутке [-25,30]. Подсчитать

Задачка 1.

var
B:array[1..5,1..6] of integer;
number_of_el:integer;

begin
for i:integer:=1 to 5 do
begin
for j:integer:=1 to 6 do
begin
B[i,j]:=random(55)-25;
write(B[i,j]:9);
if (B[i,j] mod 4 = 0) then
number_of_el:=number_of_el+1;
end;
writeln();
end;
writeln(Количество: , number_of_el);
end.

Задачка 2.

var
C:array[1..6,1..10] of integer;
sum:integer;

begin
for i:integer:=1 to 6 do
begin
for j:integer:=1 to 10 do
begin
C[i,j]:=random(20)+10;
write(C[i,j]:5);
if (i = 1) then
sum:=sum+C[i,j];
end;
writeln();
end;
writeln(Сумма: , sum);
end.

Задачка 3.

var
M:array[1..12,1..12] of integer;
sum:integer;

begin
for i:integer:=1 to 12 do
begin
for j:integer:=1 to 12 do
begin
M[i,j]:=random(60)-10;
write(M[i,j]:5);
if (i = j) and (M[i,j]lt;0) then
sum:=sum+M[i,j];
end;
writeln();
end;
writeln(Сумма: , sum);
end.

Задачка 4.

var
P:array[1..10,1..10] of integer;
A:array[1..10] of integer;

begin

for i:integer:=1 to 10 do
begin
A[i]:=random(25)-20;
write(A[i]:5);
end;

for i:integer:=1 to 10 do
begin
for j:integer:=1 to 10 do
begin
P[i,j]:=2*A[i]+j-5;
write(P[i,j]:5);
end;
writeln();
end;
end.