Hiul
6 год назад
исправьте пожалуйста программу 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.
ОТВЕТЫ
Поликарп
Oct 24, 2020
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.
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.
228
Смежные вопросы:
