{так как кол-во чисел не превышает 1000, то можно использовать массив длинной в 1000 элементов} Program n1; const n=1000; var a: array [1..n] of integer; i: integer; begin write('введите 1 число: '); readln(a[1]); for i:=1 to n-1 do begin write('введите ',i+1,' число: '); readln(a[i+1]); if (abs(a[i])>100) then break; if(a[i]*a[i+1]<50)then begin writeln(i,' ',i+1); break; end; end; end.
Answers & Comments
Verified answer
{так как кол-во чисел не превышает 1000, то можно использовать массив длинной в 1000 элементов}Program n1;
const n=1000;
var a: array [1..n] of integer;
i: integer;
begin
write('введите 1 число: ');
readln(a[1]);
for i:=1 to n-1 do
begin
write('введите ',i+1,' число: ');
readln(a[i+1]);
if (abs(a[i])>100) then break;
if(a[i]*a[i+1]<50)then
begin
writeln(i,' ',i+1);
break;
end;
end;
end.