var T: array[1..n] of integer; mean: real; i, k: integer;
begin writeln('Введите ', n, ' элементов массива'); for i := 1 to n do begin read(T[i]); mean := mean + T[i] end; mean := mean / n; k := 0; writeln(#13#10, 'Введено: '); for i := 1 to n do write(T[i]:5); writeln(#13#10, 'Элементы массива, превышаюшие среднее арифметическое ', mean:0:2); for i := 1 to n do if T[i] > mean then begin write(T[i]:5); k := k + 1 end; writeln(#13#10, 'Найдено элементов, превышаюших среднее арифметическое: ', k) end.
Var u7, d7, v7, s7: array[1..7] of real; i: integer; s: real;
begin writeln('Вводите температуры за утро, день и вечер'); s := 0; for i := 1 to 7 do begin write(i:1, ': '); readln(u7[i], d7[i], v7[i]); s7[i] := (u7[i] + d7[i] + v7[i]) / 3; s := s + s7[i] end; s := s / 7; writeln; writeln('Средние температуры по дням недели:'); for i := 1 to 7 do write(s7[i]:0:1, ' '); writeln; writeln('Средняя температура за неделю: ', s:0:1) end.
Тестовое решение:
Вводите температуры за утро, день и вечер 1: 19.6 24.8 17.3 2: 16.8 22.3 18.1 3: 15.9 24.2 19.0 4: 18.5 26.8 20.3 5: 19.2 25.6 21.7 6: 19.0 23.7 20.1 7: 18.8 23.9 19.5
Средние температуры по дням недели: 20.6 19.1 19.7 21.9 22.2 20.9 20.7 Средняя температура за неделю: 20.7
n = 20;
var
T: array[1..n] of integer;
mean: real;
i, k: integer;
begin
writeln('Введите ', n, ' элементов массива');
for i := 1 to n do
begin
read(T[i]);
mean := mean + T[i]
end;
mean := mean / n;
k := 0;
writeln(#13#10, 'Введено: ');
for i := 1 to n do write(T[i]:5);
writeln(#13#10, 'Элементы массива, превышаюшие среднее арифметическое ',
mean:0:2);
for i := 1 to n do
if T[i] > mean then
begin
write(T[i]:5);
k := k + 1
end;
writeln(#13#10, 'Найдено элементов, превышаюших среднее арифметическое: ', k)
end.
Тестовое решение:
Введите 20 элементов массива
5 17 28 45 -20 34 9 18 42 -36 18 36 0 24 5 45 -7 12 1 21
Введено:
5 17 28 45 -20 34 9 18 42 -36 18 36 0 24 5 45 -7 12 1 21
Элементы массива, превышаюшие среднее арифметическое 14.85
17 28 45 34 18 42 18 36 24 45 21
Найдено элементов, превышаюших среднее арифметическое: 11
u7, d7, v7, s7: array[1..7] of real;
i: integer;
s: real;
begin
writeln('Вводите температуры за утро, день и вечер');
s := 0;
for i := 1 to 7 do
begin
write(i:1, ': ');
readln(u7[i], d7[i], v7[i]);
s7[i] := (u7[i] + d7[i] + v7[i]) / 3;
s := s + s7[i]
end;
s := s / 7;
writeln;
writeln('Средние температуры по дням недели:');
for i := 1 to 7 do
write(s7[i]:0:1, ' ');
writeln;
writeln('Средняя температура за неделю: ', s:0:1)
end.
Тестовое решение:
Вводите температуры за утро, день и вечер
1: 19.6 24.8 17.3
2: 16.8 22.3 18.1
3: 15.9 24.2 19.0
4: 18.5 26.8 20.3
5: 19.2 25.6 21.7
6: 19.0 23.7 20.1
7: 18.8 23.9 19.5
Средние температуры по дням недели:
20.6 19.1 19.7 21.9 22.2 20.9 20.7
Средняя температура за неделю: 20.7