Question

Составить программу обработки массива размерностью n, заполненного целыми числами, введенными с клавиатуры. Вывести индексы и значения положительных элементов массива.

Answer 1

USES Crt;
 CONST   N=10;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I:BYTE;
 BEGIN
   ClrScr;
   { Заполнение массива }
   FOR I:=1 TO N DO Begin
     Write('Введите ',I,' элемент массива ');  ReadLn(A[I]);
   End;
   { Обработка элементов массива }
   FOR I:=1 TO N DO
     IF A[I]>0 THEN  WriteLn('Положительный элемент = ',A[I],' его индекс = ',I);
 END.