Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

pascal / 1 лаба / 1

.pas
Скачиваний:
19
Добавлен:
13.02.2015
Размер:
2.24 Кб
Скачать
uses crt;
const n=4;
var
m1, m2, m3: array [1..n,1..n] of integer;
i, j, k1, k2, k3: integer;
Begin
clrscr;
k1:=0;
k2:=0;
k3:=0;
For i:=1 to n do begin
For j:=1 to n do begin
m1[i,j]:=random(10);
If m1[i,j]=1 then k1:=k1+1;
end;
end;
For i:=1 to n do begin
For j:=1 to n do begin
write(m1[i,j]:5);
end;
writeln;
end;
writeln;
For i:=1 to n do begin
For j:=1 to n do begin
m2[i,j]:=random(10);
If m2[i,j]=1 then k2:=k2+1;
end;
end;
For i:=1 to n do begin
For j:=1 to n do begin
write(m2[i,j]:5);
end;
writeln;
end;
writeln;
For i:=1 to n do begin
For j:=1 to n do begin
m3[i,j]:=random(10);
If m3[i,j]=1 then k3:=k3+1;
end;
end;
For i:=1 to n do begin
For j:=1 to n do begin
write(m3[i,j]:5);
end;
writeln;
end;
write('матрица с наибольшим количеством нулевых символов:');
writeln;If (k1>k2) and (k1>k3) then begin
For i:=1 to n do begin
For j:=1 to n do begin
write(m1[i,j]:5);
end;
writeln;
end;
end;
If (k2>k1) and (k2>k3) then begin
For i:=1 to n do begin
For j:=1 to n do begin
write(m2[i,j]:5);
end;
writeln;
end;
end;
If (k3>k1) and (k3>k2) then begin
For i:=1 to n do begin
For j:=1 to n do begin
write(m3[i,j]:5);
end;
writeln;
end;
end;
If (k1=k2) and (k1>k3) then begin
For i:=1 to n do begin
For j:=1 to n do begin
write(m1[i,j]:5);
end;
writeln;
end;
writeln;
For i:=1 to n do begin
For j:=1 to n do begin
write(m2[i,j]:5);
end;
writeln;
end;
end;
If (k2=k3) and (k2>k1) then begin
For i:=1 to n do begin
For j:=1 to n do begin
write(m2[i,j]:5);
end;
writeln;
end;
writeln;
For i:=1 to n do begin
For j:=1 to n do begin
write(m3[i,j]:5);
end;
writeln;
end;
end;
If (k3=k1) and (k3>k2) then begin
For i:=1 to n do begin
For j:=1 to n do begin
write(m1[i,j]:5);
end;
writeln;
end;
writeln;
For i:=1 to n do begin
For j:=1 to n do begin
write(m3[i,j]:5);
end;
writeln;
end;
end;
If (k3=k1) and (k3=k2) then begin
For i:=1 to n do begin
For j:=1 to n do begin
write(m1[i,j]:5);
end;
writeln;
end;
writeln;
For i:=1 to n do begin
For j:=1 to n do begin
write(m2[i,j]:5);
end;
writeln;
end;
writeln;
For i:=1 to n do begin
For j:=1 to n do begin
write(m3[i,j]:5);
end;
writeln;
end;
end;
End.
Соседние файлы в папке 1 лаба