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

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

Question

Наталий

14 марта, 00:43

+4

Ответы (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 элементами с клавиатуры и вывести его на экран вывести на экран элементы равные индексам.