Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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