Информационные технологии
+4Помогите, пожалуйста, с паскалем, надо начертить блок-схему и составить программму
задать одномерный массив z(n элементов) на промежутке [-28;97] с помощью цикла while..do.вывести на экран только те элементы которые совпадают с индексом и посчитать их кол-во (составить программу и начертить блок-схему)
По дате
По рейтингу
лыко-мочало начинай с начала. сколько можно спрашивать одно и то же?
var z:array of integer; i,n,c:integer;
begin
randomize;
write('n? ');readln(n); setlength(z,n); i:=0;
while i<n do begin
z[i]:=97-random(126); write(z[i]:4);inc(i)
end; writeln;
i:=0;
c:=0;
while i<n do begin
if z[i]=i then begin write(i:4);inc(c);end;
inc(i); end;
writeln;writeln('count=',c);
end.
Источник: <a rel="nofollow" href="https://otvet.mail.ru/question/196605087" target="_blank">https://otvet.mail.ru/question/196605087</a>