Регистрация
Войти
Стать экспертом Правила
Информатика

Срочно Program sredarifment; Var a: array[1..10] of real;  i, k: integer;  C, S, sred: real; Begin  For i:=1 to 10 do   begin    write ('a[',i,']='); readln (a[i]);   end;  write('введите C: '); readln (C);  For i:=1 to 10 do   begin    If a[i]>C then     begin S=S+a[i]; K=K+1; end;   end;  sred=S/k;  Writeln('среднее арифметическое чисел, превосходящих ',C,' равно ',sred); End.Пожалуйста посчитайте чтобы программа запускалась. выходит что не верно

ОТВЕТЫ
Program sredarifment; 
Var a: array[1..10] of real; 
 i, k: integer; 
 C, S, sred: real; 
Begin 
 For i:=1 to 10 do 
  begin 
   write ('a[',i,']='); readln (a[i]); 
  end; 
 write('введите C: '); readln (C); 
 For i:=1 to 10 do 
  begin 
   If a[i]>C then 
    begin S:=S+a[i]; K:=K+1; end; 
  end; 
 sred:=S/k; 
 Writeln('среднее арифметическое чисел, превосходящих ',C,' равно ',sred); 
End.
819
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам