Вопрос по информатике:
20 Баллов
Исправьте пожалуйста программу,чтобы она работала
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.
- 22.01.2015 03:16
- Информатика
- remove_red_eye 1148
- thumb_up 39
Ответы и объяснения 1
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.
- 23.01.2015 17:05
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.