1) Вывести массив 4*4 1 3 5 7 1 3 5 7 1 3 5 7 1 3 5 7 2) Массив 4*4 0010 0100 0000 1100 Подсчитать количество нулей и единиц 3) Случайным образом вывести массив 5*5 (50) A[I, j]: = random (50); Сумму элементов массива

Задача 1.

var

arr: array[1 ... 4,1 ... 4] of real;

begin

writeln ('Наш массив:');

for i:integer: = 1 to 4 do

begin

for j:integer: = 1 to 4 do

begin

if j=1 then

arr[i, j] : = 1;

if j=2 then

arr[i, j] : = 3;

if j=3 then

arr[i, j] : = 5;

if j=4 then

arr[i, j] : = 7;

write (arr[i, j]:5);

end;

writeln ();

end;

end.

Задача 2.

var

arr: array[1 ... 4,1 ... 4] of integer;

count_of_nul, count_of_ones:integer;

begin

writeln ('Наш массив:');

arr[1,3]:=1;

arr[2,2]:=1;

arr[4,1]:=1;

arr[4,2]:=1;

for i:integer: = 1 to 4 do

begin

for j:integer: = 1 to 4 do

begin

if arr[i, j]=0 then

count_of_nul:=count_of_nul+1

else count_of_ones:=count_of_ones+1;

write (arr[i, j]:5);

end;

writeln ();

end;

writeln ('Количество нулей: ', count_of_nul);

writeln ('Количество единиц: ', count_of_ones);

end.

Задача 3.

var

a: array[1 ... 5,1 ... 5] of integer;

count_of_el:integer;

begin

writeln ('Наш массив:');

for i:integer: = 1 to 5 do

begin

for j:integer: = 1 to 5 do

begin

a[i, j]:=random (50);

count_of_el:=count_of_el+a[i, j];

write (a[i, j]:5);

end;

writeln ();

end;

writeln ('Сумма элементов массива: ', count_of_el);

end.