Заполнить массив H[10] с клавиатуры и вывести его на экран. Вывести на экран элементы, равные индексам.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
А какой нужно ввести массив, когда запустишь программу? Любой или 10?
Ответ дал:
0
"Заполнить массив H[10] с клавиатуры...", раз H[10], то элементов 10 штук..
Похожие вопросы
2 года назад
6 лет назад
9 лет назад