Program KTD;
var T:array [1..10] of real;
SUM, SRT:real;
i,K:byte;
begin
for i:=1 to 10 do
readln(t[i]);
for i:=1 to 10 do
begin
sum:=sum+t[i];
end;
srt:=sum/10;
for i:=1 to 10 do
begin
if t[i]>srt then
k:=k+1;
end;
writeln(k);
end.
Проверил, работает. Удачи:)
Var
n:Integer;
Begin
Writeln('Введите в градусах Цельсия');
Read(n);
Writeln('В Фаренгейтах это = ',(n*9/5)+32:0:1);
end.
Органы чувств ..........................!!!!!!!!
1-1, 2, 3, 4, 5, 6. 2-6,7,8 и до бесконечности