Заполнить массив h[10] с клавиатуры и вывести его на экран. вывести на экран элементы, равные индексам.

максим1716 максим1716    2   01.09.2019 04:20    1

Ответы
ЗайчонокЛайм ЗайчонокЛайм  06.10.2020 09:03
Var
   H:array[1..10] of integer;
   i:integer;
Begin
Write('Введите массив: ');
For i:= 1 to 10 do
    Read(H[i]);
Write('Элементы, равные индексам:');
For i:= 1 to 10 do
    if H[i] = i then Write(' ',H[i])
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика