Задать одномерный массив из 50 целочисленных элементов, с помощью цикла repeat until и...

Question

Задать одномерный массив из 50 целочисленных элементов, с помощью цикла repeat until и вывести на экран те элементы которые совпадают с индексом позиции

Answer 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.