Предмет: Информатика,
автор: keks1k2011
Данные о температуре воздуха за декаду хранятся в массиве. Определить, сколько раз температура была выше средней за эту декаду.
Ответы
Автор ответа:
0
var
a: array[1..10] of integer;
i, sum, count: integer;
average: real;
begin
sum := 0;
writeln('Данные о температуре: ');
for i := 1 to 10 do
begin
a[i] := random(61) - 30;
sum := sum + a[i];
write(a[i], ' ');
end;
writeln;
average := sum / 10;
for i := 1 to 10 do
if a[i] > average then inc(count);
writeln(count, ' раз(a)');
end.
a: array[1..10] of integer;
i, sum, count: integer;
average: real;
begin
sum := 0;
writeln('Данные о температуре: ');
for i := 1 to 10 do
begin
a[i] := random(61) - 30;
sum := sum + a[i];
write(a[i], ' ');
end;
writeln;
average := sum / 10;
for i := 1 to 10 do
if a[i] > average then inc(count);
writeln(count, ' раз(a)');
end.
Похожие вопросы
Предмет: Русский язык,
автор: elmiraveselova82
Предмет: Английский язык,
автор: artikbro001
Предмет: Литература,
автор: kayratkamchybekov08
Предмет: Математика,
автор: AnnetteFlute
Предмет: Математика,
автор: lkhaydarova