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]<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 dobeginA[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.