Цитата:
|
Даны целые числа K, N, а так же K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек.
|
Код:
uses crt;
const k=10; n=10; {значения измените сами}
var i,j:integer;
p: array[1..k,1..n] of integer;
begin
randomize;
{заполнение массива случайными значениями}
for i:=1 to k do
for j:=1 to n do
p[i,j]:=random(100)-40;
{поиск элемента=2}
for i:=1 to k do begin
for j:=1 to n do
if p[i,j]=2 then begin writeln(j); break; end else if j=n then writeln(0);
end;
readln;
end.