1)Вывести массив 4*4 1 3 5 7 1 3 5 7

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