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

[noflymouse]

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

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

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

[Freedom]

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

begin
for i:=1 to 31 do begin T[i]:=20+random(16); Write(T[i]:0:2,'  ');
end;
min:=T[1];
for i:=1 to 31 do
begin
if (T[i] < min) then min:=T[i];
end;
for i:=0 to 31 do
begin
if(T[i]=min) then count:=count+1;
end;
writeln;
writeln(min:2:2);
readln;
end. 

Сурово использовать If без then. И да выводит 0 потому что min:=t[0] где в t[0] ты не забивал никакого значения и он равняется 0 следовательно он и минимальным остаётся исправил на min:=t[1]

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