Добавил:
TheBazilius
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:1 семестр сессия / 5
.pas Program Lab_426_Var5;
Type Massive = Array [1..4,1..4] Of Real;
Type Kolich = Array [1..4] Of Integer;
Procedure Poisk(A:Massive; J:Integer; Var Nul:Kolich);
Var I:Integer;
Begin
Nul[J]:=0;
For I:=1 To 4 Do
If A[I,J]=0 Then
Nul[J]:=Nul[J]+1;
End;
Var
I,J,Kol:Integer;
A:Massive;
Nul:Kolich;
Begin
Randomize;
For I:=1 To 4 Do
Begin
For J:=1 To 4 Do
Begin
A[I,J]:=Random(6) - 5;
Write(A[I,J],' ');
End;
Writeln;
End;
Kol:=0;
For J:=1 To 4 Do
Begin
Poisk(A,J,Nul);
If Nul[J]<>0 Then Kol:=Kol + 1;
End;
If Kol=0 Then Writeln('НЕТ СТОЛБЦОВ С НУЛЯМИ')
Else
For J:=1 To 4 Do
If Nul[J]<>0 Then
Begin
Write('столбец № ',J,' : ');
For I:=1 To 4 Do
Write(A[I,J],' ');
Writeln;
End;
End.
Type Massive = Array [1..4,1..4] Of Real;
Type Kolich = Array [1..4] Of Integer;
Procedure Poisk(A:Massive; J:Integer; Var Nul:Kolich);
Var I:Integer;
Begin
Nul[J]:=0;
For I:=1 To 4 Do
If A[I,J]=0 Then
Nul[J]:=Nul[J]+1;
End;
Var
I,J,Kol:Integer;
A:Massive;
Nul:Kolich;
Begin
Randomize;
For I:=1 To 4 Do
Begin
For J:=1 To 4 Do
Begin
A[I,J]:=Random(6) - 5;
Write(A[I,J],' ');
End;
Writeln;
End;
Kol:=0;
For J:=1 To 4 Do
Begin
Poisk(A,J,Nul);
If Nul[J]<>0 Then Kol:=Kol + 1;
End;
If Kol=0 Then Writeln('НЕТ СТОЛБЦОВ С НУЛЯМИ')
Else
For J:=1 To 4 Do
If Nul[J]<>0 Then
Begin
Write('столбец № ',J,' : ');
For I:=1 To 4 Do
Write(A[I,J],' ');
Writeln;
End;
End.
Соседние файлы в папке 1 семестр сессия