Автор: Bronislav

Bronislav — Sun, 25 Feb 2018 21:16:44 +0000

//pascalABC.net
begin
  var count:=0;
  write('введите кол-во наборов: ');
  var k:=ReadlnInteger('k =');
  write('введите кол-во элементов в наборах: ');
  var n:=ReadlnInteger('n =');
  for var i:=1 to k do
  begin
    writeln('введите ',i,' набор из ',n,' элементов');
    var a:=ArrGen(n,t->ReadInteger);//или a:=ReadArrInteger(n);
    var b:=a.Contains(2);
    if b then inc(count);
  end;
  print('кол-во наборов, содержащих число 2: =',count);
  readln;readln;
end.

//pascalABC.net

begin

var count:=0;

write('введите кол-во наборов: ');

var k:=ReadlnInteger('k =');

write('введите кол-во элементов в наборах: ');

var n:=ReadlnInteger('n =');

for var i:=1 to k do

begin

writeln('введите ',i,' набор из ',n,' элементов');

var a:=ArrGen(n,t->ReadInteger);//или a:=ReadArrInteger(n);

var b:=a.Contains(2);

if b then inc(count);

end;

print('кол-во наборов, содержащих число 2: =',count);

readln;readln;

end.

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

Автор: Bronislav