Информатика массивы

заполнить массив 10 элементами с клавиатуры и вывести его на экран вывести на экран элементы равные индексам.

Question

Флора

19 мая, 20:51

+1

Ответы (1)

Знаете ответ на вопрос?

Кира · Answer 1

For i:=1 to 10 do

begin

read (a) ;

mas[i]:=a;

end;

writeln ('числа равные индексам:') ;

for i:=1 to 10 do if mas[i]=i then write (mas[i]) ;

Информатика массивызаполнить массив 10 элементами с клавиатуры и вывести его на экран вывести на экран элементы равные индексам.