Pascal abc

+ 0 -

Polinabya

01 июня 2014 г., 20:55:38 (9 лет назад)

VAR
   i, kol: Integer;
   a: Array [1..20] of Integer;
BEGIN
   For i := 1 to 20 do Read(a[i]);

   For i := 1 to 20 do
      If (a[i] < -20) then Inc(kol);

   Write(kol);
END.

+ 0 -

Alex1119

01 июня 2014 г., 21:31:36 (9 лет назад)

сколько элементов массива?

+ 0 -

2002zhenya19

02 июня 2014 г., 0:08:51 (9 лет назад)

подсчитать количество морозных дней , за неделю.

+ 0 -

Vladz777

02 июня 2014 г., 0:50:29 (9 лет назад)

срочно?

+ 0 -

Аишаа

02 июня 2014 г., 3:01:10 (9 лет назад)

да

+ 0 -

Эрик0908

02 июня 2014 г., 5:48:00 (9 лет назад)

А массив заполнять случайнымипоказателями или создать базу данных?