Pascal. B массиве хранится информация о среднедневной температуре июля. Определить...

Question

Pascal. B массиве хранится информация о среднедневной температуре июля. Определить количество ДВУХ САМЫХ ТЁПЛЫХ ДНЕЙ! Пожалуйста, сделайте уже кто-нибудь :)!

Comments

Как это - КОЛИЧЕСТВО двух ...?

---

Т.е. какие два дня, будут самые тёплые в июде

Answer 1

1. "Современный вариант"
// PascalABC.Net 3.0, сборка 1076
begin
  var t:=ArrRandom(31,18,39);
  Writeln('Температуры июля',#13#10,t);
  Writeln('Температуры двух самых теплых дней: ',
  t.OrderByDescending(x->x).Take(2))
end.

Тестовое решение:
Температуры июля
[25,25,32,26,30,26,18,31,28,31,24,19,22,34,23,31,27,26,30,21,21,20,18,25,23,22,32,18,37,24,25]
Температуры двух самых теплых дней: [37,34]

2. "Школьный вариант."
// PascalABC.Net 3.0, сборка 1076
var
  t:array[1..31] of integer;
  i,max,max2:integer;
begin
  Randomize;
  Writeln('Температуры июля');
  max:=0; max2:=0;
  for i:=1 to 31 do begin
    t[i]:=Random(22)+18;
    Write(t[i],' ');
    if t[i]>max then begin max2:=max; max:=t[i] end
    else
      if t[i]>max2 then max2:=t[i]
    end;
  Writeln;
  Writeln('Температуры двух самых теплых дней: ',max,', ',max2)
end.

Тестовое решение:
Температуры июля
23 29 22 29 37 37 31 35 18 34 31 31 27 22 27 20 19 24 31 33 26 25 22 28 31 32 21 37 38 37 20
Температуры двух самых теплых дней: 38, 37