Версия для печати темы

Автор: SayMYname 29.10.2008 22:43

Информация о среднесуточной температуре воздуха за месяц задана
в виде массива. Определить, сколько дней температура была ниже среднесуточной. Помогите!!! Плиз!!! Заранее благодарна))

Program;
uses crt;
const maxn=31;
var
   n,i,k:integer;
   s:real;
   a:array [1..maxn] of real;
begin
   clrscr;
   writeln ('Vvedite kol-vo dnej i mesyacev');
   readln(n);
   s:=0;
   k:=0;
for i:=1 to n do
 begin
   writeln('Vvedite temperatyry za',i,'ii den');
   readln (a[i]);
   s:=s+a[i];
  end;
 for i:=1 to n do
   begin
    if a[i]<(sin) then
    irc(k);
  end;
   writeln('temperatyra bila nizge sredneyto4noj',k,'dnej');
   readkey;
end.

М

Просьба при публикации программного кода использовать теги! Lapp

Автор: volvo 29.10.2008 22:53

А можно вопрос? Откуда этот текст? Сосканирован откуда-то? Ошибки-то именно такие, которые возникают при сканировании:

...
for i:=1 to n do
begin
if a[i]<(s/n) then { <--- Чувствуешь? Деление, а не I }
iNc(k); { <--- Да и здесь тоже... }
end;
writeln('temperatyra bila nizge sredneyto4noj',k,'dnej');

Ну, и название у программы отсутствует. Если уж есть слово Program, то после него не должна сразу же идти "точка с запятой"...

Автор: SayMYname 30.10.2008 0:18

Спасибо тебе огромное)))))
мне аж стыдно за свои ужасные ошибки....(