Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Известны сведения об атмосферном за неделю в городе 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.