Вопрос по информатике:
Задать одномерный массив из 50 целочисленных элементов, с помощью цикла repeat until и вывести на экран те элементы которые совпадают с индексом позиции
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.04.2017 12:11
- Информатика
- remove_red_eye 14353
- thumb_up 29
Ответы и объяснения 1
//PascalABC.NET 3.0
(*Задать одномерный массив из 50 целочисленных элементов, с помощью цикла repeat until вывести на экран те элементы которые совпадают с индексом позиции*
)var mas : array [1..50] of integer;
i: integer;begin for i:=1 to 50 do
mas[i] := random(50)+1;
writeln('Массив: ');
for i:=1 to 50 do
write(mas[i],' ');
writeln;
writeln('Элементы, совпадающие с индексом позиции: ');
i := 1;
repeat
if (mas[i] = i) then
write(mas[i],' ');
inc(i)
until i = 50;
end.
- 07.04.2017 03:23
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.