1) Вывести массив A (N). Вывести на печать данные о числе нулевых элементов массива и их номера. Если таковых нет, вывести на печать сообщение об этом 2) Вывести массив А (N, 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]
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.