Заполнить массив H[10] с клавиатуры и вывести его на экран. Вывести на экран элементы, равные индексам.

Question

Информатика

Правдина

11 октября, 02:58

Заполнить массив H[10] с клавиатуры и вывести его на экран. Вывести на экран элементы, равные индексам.

+2

Ответы (1)

Знаете ответ?

Фатьян · Answer 1

Var

H:array[1 ... 10] of integer;

i:integer;

Begin

Write ('Введите массив: ') ;

For i: = 1 to 10 do

Read (H[i]) ;

Write ('Элементы, равные индексам:') ;

For i: = 1 to 10 do

if H[i] = i then Write (' ', H[i])

End.