Известны сведения об атмосферном за неделю в городе n. в массиве данных найти номер(а) дня(ей) когда давление было ниже нормы. (700 мм.р.с.) составить в pascal.
Результат работы программы на скринах, вот сама программа:
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; end; WRITELN; if s<>0 then begin write ('В '); for i:=1 to 7 do begin if a[i]<700 then write (i,' '); end; write ('день, давление было ниже нормы!'); end; if s=0 then write ('Давление за эти 7 дней было выше нормы!'); end.
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;
end;
WRITELN;
if s<>0 then
begin
write ('В ');
for i:=1 to 7 do
begin
if a[i]<700 then write (i,' ');
end;
write ('день, давление было ниже нормы!');
end;
if s=0 then write ('Давление за эти 7 дней было выше нормы!');
end.