Комментарии: Решаем задачи Абрамян на Паскале. Matrix38

Автор: asdfg

asdfg — Sun, 16 Feb 2020 22:28:00 +0000

вариант2. похоже на то что у админа но алгоритм попроще

var
m,n,i,j,cx:integer;
a:array [1..10,1..10] of integer;
x:set of byte;
b:boolean;
begin
read (m,n); // ввод кол-ва строк и столбцов
  for i:=1 to m do
  for j:=1 to n do read (a[i,j]); // ввод значений матрицы
 
  for i:=1 to m do
  begin
  x:=[];  //на внешнем цикле обнулить множество
  b:=true; // и ключ на тру
  for j:=1 to n do // на внутреннем..
  begin
    if (a[i,j]) in x then  b:=false;// если значение есть в множестве ключ на фалсе :)
    x:=x+[a[i,j]]; // перенос значения строки в множество
  end;
  if b=true then inc (cx); // если ключ остался на тру значт повторов небыло
  end;
  print (cx);// вывод кол-ва строк без повторов
end.

var

m,n,i,j,cx:integer;

a:array [1..10,1..10] of integer;

x:set of byte;

b:boolean;

begin

read (m,n); // ввод кол-ва строк и столбцов

for i:=1 to m do

for j:=1 to n do read (a[i,j]); // ввод значений матрицы

for i:=1 to m do

begin

x:=[]; //на внешнем цикле обнулить множество

b:=true; // и ключ на тру

for j:=1 to n do // на внутреннем..

begin

if (a[i,j]) in x then b:=false;// если значение есть в множестве ключ на фалсе :)

x:=x+[a[i,j]]; // перенос значения строки в множество

end;

if b=true then inc (cx); // если ключ остался на тру значт повторов небыло

end;

print (cx);// вывод кол-ва строк без повторов

end.

Автор: asdfg

asdfg — Sat, 15 Feb 2020 22:00:06 +0000

program matrix38;{без применения множеств}
var m,n,x,i,j,q:integer;
a:array [1..10,1..10] of integer;
b:boolean;
begin
read (m,n);
for i:=1 to m do
for j:=1 to n do read (a[i,j]);
for i:=1 to m do 
begin
b:=true;
  for q:=1 to n-1 do
  for j:=1+q to n do if a[i,q]=a[i,j] then b:=false;
if b=true then inc (x);
end;
print (x);
end.

program matrix38;{без применения множеств}

var m,n,x,i,j,q:integer;

a:array [1..10,1..10] of integer;

b:boolean;

begin

read (m,n);

for i:=1 to m do

for j:=1 to n do read (a[i,j]);

for i:=1 to m do

begin

b:=true;

for q:=1 to n-1 do

for j:=1+q to n do if a[i,q]=a[i,j] then b:=false;

if b=true then inc (x);

end;

print (x);

end.

Автор: Bronislav

Bronislav — Sun, 02 Sep 2018 07:08:12 +0000

глючит сайт «нипадецки» комменты зависают вчера отправил решение еще нет, может после этого сообщения появится

Автор: Bronislav

Bronislav — Sat, 01 Sep 2018 22:21:17 +0000

program Matrix38;//pabc.net

begin
  var m := 10;
  var n := 10;
  var a := MatrRandom(m, n, 0, 100); a.Println;
  
  var count := 0;
  
  for var i := 0 to m - 1 do
    if a.Row(i).Distinct.Count = n then count += 1;
  
  Print(count);
end.

program Matrix38;//pabc.net

begin

var m := 10;

var n := 10;

var a := MatrRandom(m, n, 0, 100); a.Println;

var count := 0;

for var i := 0 to m - 1 do

if a.Row(i).Distinct.Count = n then count += 1;

Print(count);

end.