Решить на Паскале. Для массива T(m) отыскать число частей, великих
Решить на Паскале.
Для массива T(m) отыскать число частей, великих предшествующего элемента, а для тех, которые
меньше, отыскать их среднее арифметическое.
1 ответ
Gena Jestemirov
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//сообразно условию задачки
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i gt; 1) and (i lt;= m) then
if t[i] gt; t[i - 1] then n := n + 1
else if t[i] lt; t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число частей больших предшествующего = ', n);
writeln('ср. арифметическое элементов наименьших предшествующего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число частей, великих предыдущего = 5
среднее арифметическое частей, меньших предыдущего = -12.5
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//сообразно условию задачки
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i gt; 1) and (i lt;= m) then
if t[i] gt; t[i - 1] then n := n + 1
else if t[i] lt; t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число частей больших предшествующего = ', n);
writeln('ср. арифметическое элементов наименьших предшествующего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число частей, великих предыдущего = 5
среднее арифметическое частей, меньших предыдущего = -12.5
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов