Подсчитать количество строк заданной целочисленной матрицы N х N, являющихся перестановкой чисел 1, 2, ..., N (т. е. содержащих
107
208
Ответы на вопрос:
Var a:array[1..100,1..100] of integer;
i,j,flag,n,k:byte;
begin
randomize;
k:=0;
Writeln('vvedite n'); readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100)+1;
write(a[i,j],' ');
end;
Writeln;
end;
for i:=1 to n do
begin
flag:=0;
for j:=1 to n do
begin
if a[i,j]=a[i,j+1]
then flag:=1;
end;
if flag=1
then k:=k+1;
end;
Writeln(k);
readln;
end.
i,j,flag,n,k:byte;
begin
randomize;
k:=0;
Writeln('vvedite n'); readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100)+1;
write(a[i,j],' ');
end;
Writeln;
end;
for i:=1 to n do
begin
flag:=0;
for j:=1 to n do
begin
if a[i,j]=a[i,j+1]
then flag:=1;
end;
if flag=1
then k:=k+1;
end;
Writeln(k);
readln;
end.
! И тебя с праздником красотка!
Объяснение:
Не знаю почему но я не люблю цветы. Как по мне лучше что то дельное подарить.
Популярно: Другие предметы
-
Кличяня03.05.2021 08:13
-
Агсим26.04.2022 16:15
-
katiaj0710200422.04.2023 23:30
-
AnnyMay262906.01.2021 14:22
-
polina19867827.06.2021 08:46
-
burcevyuriy05.09.2021 01:54
-
ната581011.07.2021 16:34
-
Pars1fal08.09.2022 12:16
-
аня294220.11.2020 15:17
-
Аня14205.05.2023 04:08