Анонимно
помогите мне решить задачу по информатике в паскале
Условие:
В одномерный целрчисленном массиве из 25 элементов определить разность между Max и min элементами, определить средний элемент, определить сумму нечетных элементов.
Ответ
Анонимно
// PascalABC.NET 3.2, сборка 1449 от 23.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(25,1,99); a.Println;
Writeln('max-min=',a.Max-a.Min);
Writeln('Среднее арифметическое=',a.Average);
Writeln('Сумма нечетных=',a.Where(x->x.IsOdd).Sum);
end.
Пример
29 64 88 37 45 50 81 67 69 93 82 42 5 22 42 17 11 21 94 6 6 58 51 24 14
max-min=89
Среднее арифметическое=44.72
Сумма нечетных=526
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(25,1,99); a.Println;
Writeln('max-min=',a.Max-a.Min);
Writeln('Среднее арифметическое=',a.Average);
Writeln('Сумма нечетных=',a.Where(x->x.IsOdd).Sum);
end.
Пример
29 64 88 37 45 50 81 67 69 93 82 42 5 22 42 17 11 21 94 6 6 58 51 24 14
max-min=89
Среднее арифметическое=44.72
Сумма нечетных=526
Новые вопросы по Информатике
5 - 9 классы
1 минута назад
5 - 9 классы
2 минуты назад
Студенческий
3 минуты назад
5 - 9 классы
3 минуты назад
Нужен ответ
10 - 11 классы
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад