Помогите написать программу, пожалуиста..
В одномерном массиве Т хранятся данные о температуре окружающего воздуха за июнь месяц. Сколько дней температура была минимальной? Массив заполнить целыми случайными числами в диапазоне от 20 до 35.
Бьюсь уже второй час, ничё не помогает. Буду оч признателен тому кто поможет. Программа то простая..
что не получается? описать массив из 30 элементов, заполнить случайными числами или найти минимальный элемент?
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.
и не работает программа.. =\
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.
Ох, спасибо тебе добрый человек. Я вобще когда то шарил в паскале, но уже 5 лет прошло и всё к чертям забыл
program fg;Да и 32 дня не многовато?
uses crt;
var
min,count : integer;
i : integer;
T: array[1..30] of integer;
begin
randomize;
for i:=1 to 30 do begin
T[i]:=20+random(16);
Write(T[i]:3);
end;
min:=T[1];
for i:=2 to 30 do
if (T[i] < min) then min:=T[i];
for i := 1 to 30 do
if (T[i] = min) then count:=count+1;
writeln;
writeln(min, ' ', count);
end.
Сколько раз еще надо говорить, чтобы программист в конце концов начал инициализировать переменные? Повторяю в 12878-ой раз: НЕ НАДЕЙТЕСЬ на то, что добрый дяденька-компилятор сделает за вас работу! Переменные должны быть инициализированы программистом. Точка. Не давайте даже повода для возможной ошибки...