1) Вывести массив A(N). Вывести на печать данные о числе нулевых

Задачка 1.

var
number, count: integer;
arr: array[1..10] of integer;

begin
for number := 1 to 10 do
begin
arr[number] := random(10);
write(arr[number]:5);
end;
writeln();
writeln(Ненулевые элементы массива:);
for number := 1 to 10 do
begin
if not (arr[number] = 0) then
begin
count:=count+1;
writeln(элемент , arr[number]:3, на позиции , number:3);
end
end;
if count=0 then
write( ненулевых частей нет);
end.

Задача 2. 

var
number,col:integer;
count, min_el: real;
arr: array[1..5,1..5] of real;

begin
writeln(Начальный массив:);
for number:= 1 to 5 do
begin
for col:= 1 to 5 do
begin
arr[number,col] := random(10)+2;
write(arr[number, col]:5);
end;
writeln();
end;

min_el:=arr[1,1];

for number:= 1 to 5 do
for col:=1 to 5 do
if col=number then
if arr[number, col]lt;min_el then
min_el:=arr[number, col];
writeln(Минимальный элемент главной диагонали: , min_el);

writeln(Перевоплощенный массив:);
for number:= 1 to 5 do
begin
for col:= 1 to 5 do
begin
arr[number,col] := arr[number,col]/min_el;
write(arr[number, col]:5:1);
end;
writeln();
end;

end.