Составить программу обработки массива размерностью n, заполненного целыми числами, введенными с клавиатуры. Вывести
Вопрос посетителя
Составить программу обработки массива размерностью n, заполненного целыми числами, введенными с клавиатуры. Вывести индексы и значения положительных элементов массива.
Ответ эксперта
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.