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

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

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]);