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

Автор: Наталья

Наталья — Thu, 17 Jan 2019 01:40:57 +0000

В ответ на Bronislav. А если : var b:= a.FindLastIndex(x->x=2); c:=b+1;

Автор: Bronislav

Bronislav — Sun, 25 Feb 2018 23:34:47 +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).Reverse.ToArray;
    (a.Count-a.IndexOf(2)).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).Reverse.ToArray;

(a.Count-a.IndexOf(2)).Println;

end;

readln;readln;

end.

Автор: Anton

Anton — Mon, 29 Dec 2014 02:24:16 +0000

Опять же, ссылаясь на предыдущий пример такого не должно произойти, т.к. в цикле ввода значений

for Ni:=1 to N do
    begin
     write('Введите ',Ni,' число из ',Ki ,' набора :');
     Readln(A);
     if A=2 then Num:=Ni;
end;

for Ni:=1 to N do

begin

write('Введите ',Ni,' число из ',Ki ,' набора :');

Readln(A);

if A=2 then Num:=Ni;

end;

я не вывожу результаты, а только добавляю в переменную num номер последнего элемента со значением 2.
а уже после цыкла вывожу его значение Writeln(Num);

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

Кирилл — Sat, 27 Dec 2014 23:14:48 +0000

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

//многомерный массив
uses PT4;
var k,n,i,j,num,count:integer;
begin
Task('Series33');
  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
      if arr[i,j]=2 then count:=j+1;
    write(count);
  end;
end.

//многомерный массив

uses PT4;

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

begin

Task('Series33');

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

if arr[i,j]=2 then count:=j+1;

write(count);

end;

end.