Без использования repeat, если можно.

Без использования repeat, если можно.
Гость
Ответ(ы) на вопрос:
Гость
{так как кол-во чисел не превышает 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы