Процедуры (вывести столбцы м-цы с нулевыми значениями)

@flat · Регистрация: 14.12.2009

Следующая задача:
Сформировать и вывести на экран две матрицы путем ввода элементов с клавиатуры и по заданному правилу, используя процедуры пользователя. Фактическое число строк и столбцов вводить с клавиатуры и передавать в процедуры фактическими параметрами. Предусмотреть процедуру вывода результирующей матрицы на экран. Произвести вычисления в функции или процедуре над матрицами согласно заданному требованию. Например, найти среднее арифметическое двух исходных матриц, а также сформировать две результирующие матрицы путем деления элементов исходных матриц на их максимальный элемент. Вывести результирующие матрицы на экран.

Для матрицы А (4 строки, 4 столбца) вывести те столбцы, в которых есть нулевые элементы, или вывести сообщение "нет столбцов с нулями". Для проверки наличия нулевых элементов в произвольном столбце матрицы использовать процедуру.
Правильно ли всё сделано, проверьте пожалуйста

Pascal

var
A:array[1..4,1..4] of integer;
x,y:integer;
metka:array[1..4] of boolean;
elements:boolean;
procedure test(x:integer);
begin
metka[x]:=false;
for y:=1 to 4 do
if A[y,x]=0 then
begin
metka[x]:=true;
elements:=true;
end;
end;
begin
elements:=false;
writeln('Ishodnie dannie:');
for y:=1 to 4 do
begin
for x:=1 to 4 do
begin
write(a[y,x]:2,' ');
readln(a[y,x]);
end;
writeln;
end;
for x:=1 to 4 do
test(x);
writeln('Resultat:');
if elements=true then
begin
for y:=1 to 4 do
begin
for x:=1 to 4 do
begin
if metka[x]=true then
write(a[y,x]:2, ' ');
end;
writeln;
end;
end else
writeln('Stolbcob c nulyami net');
readln;
end.

Спасибо=)

Опции темы