Информатика, вопрос задал wres5 , 9 лет назад

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

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

Ответы на вопрос

Ответил HiroX
0
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]);
Новые вопросы