Одномерный массив, Простенькая программа с обработкой одномерного массива Опции

[noflymouse]

Помогите написать программу, пожалуиста..

В одномерном массиве Т хранятся данные о температуре окружающего воздуха за июнь месяц. Сколько дней температура была минимальной? Массив заполнить целыми случайными числами в диапазоне от 20 до 35.

Бьюсь уже второй час, ничё не помогает. Буду оч признателен тому кто поможет. Программа то простая..

[noflymouse]

program fg;
uses crt;
var min,count : real; i, a : integer;
T: array[0..31] of real;

begin
for i:=1 to 31 do begin T[i]:=20+random(16); Write(T[i]:3);
min:=T[0];
for i:=1 to 31 do
begin
if (T[i] < min) min:=T[i];
end;
for i:=0 to 31 do
begin
if(T[i]=min) count:=count+1;
end;

writeln(min);
end.

и не работает программа.. =\

Сообщение отредактировано: noflymouse - 16.05.2010 19:49