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

Автор: Bronislav

Bronislav — Sun, 25 Feb 2018 21:36:12 +0000

//pascalABC.net
begin
  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.IndexOf(2)+1).Println;
  end;
  readln;readln;
end.

//pascalABC.net

begin

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.IndexOf(2)+1).Println;

end;

readln;readln;

end.

Автор: Anton

Anton — Mon, 21 Dec 2015 03:12:58 +0000

В ответ на olegst1975. Добавил решение.

Автор: olegst1975

olegst1975 — Sun, 20 Dec 2015 19:31:09 +0000

Браво! Для прямого перебора предлагаю

var
k,n,i,i1,num,check:integer;
begin
  read(k);
  read(n);
  for i:=1 to k do
    begin
      check:=0;
      for i1:=1 to n do
        begin
         read(num);
         if (num=2) and (check=0) then check:=i1;
        end;
      write(check);  
    end;
end.

var

k,n,i,i1,num,check:integer;

begin

read(k);

read(n);

for i:=1 to k do

begin

check:=0;

for i1:=1 to n do

begin

read(num);

if (num=2) and (check=0) then check:=i1;

end;

write(check);

end;

end.

Автор: Anton

Anton — Sun, 28 Dec 2014 07:18:19 +0000

В ответ на Кирилл. >При таком решении выводиться будут все порядковые номера двоек в каждом наборе. А нужно только первой двойки. Почему ты так думаешь? for Ki:=1 to K do // бегу по всем наборам чисел begin Num:=0; // обнуляю num если он не встретится в наборе то будет равен нулю for Ni:=N downto 1 do // бегу по конкретному набору чисел с конца в начало используя конструкцию for downto do begin write('Введите ',Ni,' число из ',Ki ,' набора :'); Readln(A); if A=2 then Num:=Ni; // если встречается элемент равный 2 запомнить его номер end; // заканчиваю бежать по набору с конца в начало... номер самого первого элемента со значением 2 будет запомнен Writeln(Num);// выводим номер самого первого элемента со значением 2 end;// заканчиваем бежать по наборам чисел. Минус данного метода, в том что числа набора вводятся в обратном порядке, но в задании не указанно откуда и как получаются данные наборы чисел.

Автор: Кирилл

Кирилл — Sat, 27 Dec 2014 22:54:42 +0000

При таком решении выводиться будут все порядковые номера двоек в каждом наборе. А нужно только первой двойки.
Если поставить break после первого совпадения, то задачник выведет ошибку, что введены не все данные. Встал я в ступор, как тут быть, поэтому сделал многомерным динамическим массивом. Возможно, перемудрил, но всё работает:

uses PT4;
var k,n,i,j,num,count:integer;
begin
Task('Series32');
  read(k,n);
 var arr:=new integer [k,n];
  for i:=0 to k-1 do
    for j:=0 to n-1 do
      begin
        read(num);
        arr[i,j]:=num;
      end;  
for i:=0 to k-1 do
  begin
    count:=0;
    for j:=0 to n-1 do
      begin
         if arr[i,j]=2 then
            begin
              count:=j+1;
              break;
            end;
      end;
    write(count);
  end;
end.

uses PT4;

var k,n,i,j,num,count:integer;

begin

Task('Series32');

read(k,n);

var arr:=new integer [k,n];

for i:=0 to k-1 do

for j:=0 to n-1 do

begin

read(num);

arr[i,j]:=num;

end;

for i:=0 to k-1 do

begin

count:=0;

for j:=0 to n-1 do

begin

if arr[i,j]=2 then

begin

count:=j+1;

break;

end;

write(count);

end;

end.