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

Series33. Даны целые числа $$K$$, $$N$$, а также $$K$$ наборов целых чисел по $$N$$ элементов в каждом наборе. Для каждого набора вывести номер его последнего элемента, равного 2, или число 0, если в данном наборе нет двоек.

Решение:

program Series33;

var

K,N,Ni,Ki,A,Num:Integer;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

for Ki:=1 to K do

begin

Num:=0;

for Ni:=1 to N do

begin

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

Readln(A);

if A=2 then Num:=Ni;

end;

Writeln(Num);

end;

end.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 4

При таком решении здесь тоже выведет все, а не только номер последнего совпадения. Поэтому из предыдущего решения убрал 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.

Ответить

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

for Ni:=1 to N do

begin

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

Readln(A);

if A=2 then Num:=Ni;

end;

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

Ответить

//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.

Ответить

Наталья

17.01.2019 в 05:40

А если : var b:= a.FindLastIndex(x->x=2);
c:=b+1;

Ответить

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

Комментарии:

Комментарии 4

Добавить комментарий Отменить ответ