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

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

Задать свой вопрос
1 ответ
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.
Есения Перевязко
А какой необходимо ввести массив, когда запустишь программу? Хоть какой либо 10?
Shurik Magdik
"Заполнить массив H[10] с клавиатуры...", раз H[10], то элементов 10 штук..
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт