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

Question

Информатика

Вонифат

7 апреля, 23:30

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

+4

Ответы (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.