Известны сведения об атмосферном за неделю в городе N. В массиве данных найти номер(а) дня(ей) когда давление было ниже нормы. (700 мм.р.с.)
Помогите пожалуйста составить задачу в Pascal.
NiGhtWolFs:
откуда берётся давление? вводится с клавиатуры? или рандомные генерируются?
Ответы
Ответ дал:
0
Результат работы программы на скринах, вот сама программа:
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.
Приложения:
![](https://st.uroker.com/files/b63/b63a800589440c06aee3b552836ebf78.png)
![](https://st.uroker.com/files/645/6458aec7b692880447f9c526ee2a12e1.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад