Результат работы программы на скринах, вот сама программа:
var a:array [1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do
begin
write ('Введите давление в ',i,' день: ');
read (a[i]);
if a[i]<700 then s:=s+1;<br>end;
WRITELN;
if s<>0 then
begin
write ('В ');
for i:=1 to 7 do
begin
if a[i]<700 then write (i,' ');<br>end;
write ('день, давление было ниже нормы!');
end;
if s=0 then write ('Давление за эти 7 дней было выше нормы!');
end.
