Этот код вроде бы правильный, но нужно в задании матрицы самому надо вводить. Помогите плиз исправить... Или может ещё кто-нибудь что-то не верное найдёт... Спасибо
| Код |
var
A:array[1..4,1..4] of integer;
x,y:integer;
metka:array[1..4] of boolean; {zdes' metka[i]=true esli v stolbce i matricy a est' "0"}
elements:boolean; {esli est' hot' odin stolbec s nulem to zdes' budet true}
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:');
randomize;
for y:=1 to 4 do
begin
for x:=1 to 4 do
begin
A[y,x]:=random(10)-5;
write(a[y,x]:2,' ');
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('net stolbcov s nulyami');
readln;
end.
|
|