Задать одномерный массив из 50 целочисленных элементов, с помощью цикла repeat until и вывести на экран те элементы которые совпадают с индексом позиции
//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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
