Прошу, помогите с программой в паскале

Question

задать одномерный массив z(n элементов) на промежутке [-28;97] с помощью цикла repeat until.вывести на экран только те элементы которые совпадают с индексом и посчитать их кол-во (составить программу и начертить блок-схему)

los_filaretovyi · Accepted Answer

опять и снова:
var z:array of integer; i,n,c:integer;
begin
randomize;
write('n? ');readln(n); setlength(z,n);
i:=0; c:=0;
repeat
z[i]:=97-random(126); write(z[i]:4);inc(i)
until i>=n; writeln;
i:=0;
repeat
if z[i]=i then begin write(i:4);inc(c);end;inc(i);
until i>=n; writeln;
writeln('count=',c);
end.

user_19361538 · Answer

Ты ее еще до сих пор не написала?