Помогите решить задачу: в массиве хранится информация о среднедневной температуре...

Question

Помогите решить задачу: в массиве хранится информация о среднедневной температуре декабря. Составьте программу, которая подсчитывает, сколько в декабре было дней с нулевой, отрицательной и положительной температурой. Даю 22 балла.

Comments

какая программа?

---

у нас тема преобразование элементов массива

---

ну а где? Паскаль?

---

да, паскаль

---

пожалуйста, если сможешь помоги решить хотя бы начало...

Answer 1

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(31,-10,12); a.Println;
  Writeln('Дней с нулевой температурой- ',a.Where(t->t=0).Count);
  Writeln('Дней с отрицательной температурой- ',a.Where(t->t<0).Count);<br>  Writeln('Дней с положительной температурой- ',a.Where(t->t>0).Count);
end.

Пример
9 -8 0 -10 5 -10 5 -8 -5 8 -2 0 -7 -5 3 6 10 5 -5 1 5 5 10 -3 -3 6 8 7 6 7 12
Дней с нулевой температурой- 2
Дней с отрицательной температурой- 11
Дней с положительной температурой- 18

Если хочется вводить с клавиатуры, вместо строки
var a:=ArrRandom(n,-10,12); a.Println;
надо написать
var a:=ReadArrInteger('Введите температуру по дням'+NewLine,31);

Answer 2

Program temp_dek;
uses crt;
Var
i,n,k,l:integer;
mA: array[1..31] of real;
begin
ClrScr;
n:=0;
k:=0;
l:=0;
for i:=1 to 31 do
begin
Write('Введите среднедневную температуру ', i,' января: ');
Read(mA[i]);
if mA[i]>0 then n:=n+1;
if mA[i]<0 then k:=k+1;<br>if mA[i]=0 then l:=l+1;
end;
writeln('Дней с отрицательной температурой: ' ,k);
writeln('Дней с нулевой температурой: ',l);
writeln('Дней с положительной температурой: ',n);
readln;
end.

Comments

спасибо большое

---

очень благодарна