1. В массиве B[5,6], значения элементов находятся в интервале [-25,30]. Подсчитать количество элементов, значение которых кратно 4. 2. В массиве C[6,10], значения элементов находятся в интервале [10,30], найти сумму элементов в 1 строке. 3. В массиве M[12,12] значения элементов находятся в интервале [-10,50] вычислите сумму отрицательных элементов, расположенных на главной диагонали. 4. Дан массив A[10] значения элементов которого находятся в интервале [-20,5]. Сформировать массив P[10,10], где P[I, J]=2*A[I]+J-5

Задача 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 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.