Тема: Поочередный поиск в массиве.Сгенерировать массив из 5 частей, отыскать в

const n=5;

var a:array [1..n] of integer;

i,s:integer;

begin

for i:= 1 to n do

begin

a[i]:=Random(5)+2;

write(a[i],' ');

end;

writeln;

for i:= 1 to n do if a[i]=3 then writeln (i,' элемент равен ',a[i]);

for i:= 1 to n do if a[i]gt;3 then writeln (i,' элемент больше 3 и равен ',a[i]);

for i:= 1 to n do if (a[i]gt;=3) and (a[i]lt;=5) then s:=s+a[i];

writeln ('Сумма чисел в массиве удовлетворяющих условию 3lt;=xlt;=5 одинакова ',s)

end.

Если я верно разумею то вот: