в виде массива. Определить, сколько дней температура была ниже среднесуточной. Помогите!!! Плиз!!! Заранее благодарна))
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 |