Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
roleman
10.01.2023 23:27 •
Информатика
Даны 3 одномерных массива a, b, c разной длины. разработать процедуру ввода массивов и нахождения их средних значений. полученные средние значения выдать на экран в программе. pascal
Показать ответ
Ответ:
СвежийГусь
06.10.2020 14:40
Самое худшее, что можно придумать, это сделать именно процедуру.
Ниже вариант с процедурой, а потом другой, без процедур. Можно сравнить...
// PascalABC.NET 3.2, сборка 1509 от 27.07.2017
// Внимание! Если программа не работает, обновите версию!
Вариант с процедурой
procedure MassAvg(var r:real);
begin
r:=ReadSeqInteger('Вводите:',ReadInteger('n=')).Average
end;
begin
var avg:real;
for var i:=1 to 3 do begin
MassAvg(avg);
Writeln('Среднее значение: ',avg)
end
end.
Вариант без процедур и функций
begin
for var i:=1 to 3 do begin
Writeln('Среднее значение: ',
ReadSeqInteger('Вводите:',ReadInteger('n=')).Average)
end
end.
Результат
n= 7
Вводите: -5 4 11 8 0 5 4
Среднее значение: 3.85714285714286
n= 5
Вводите: 100 32 52 43 19
Среднее значение: 49.2
n= 4
Вводите: 6 6 8 7
Среднее значение: 6.75
0,0
(0 оценок)
Популярные вопросы: Информатика
ася614
30.11.2022 16:47
Решение 1. файл размером 4000 кбайт передаётся через некоторое соединение в течение 1 минуты. определите размер файла (в кбайт), который можно передать через это соединение за...
tinafortinova78
09.12.2020 14:15
Дано натуральное число n. найти количество двузначных чисел, произведение цифр которых равно n...
1941110
17.09.2021 22:42
Скакой поразрядной операции можно выполнять деление числа на 2?...
Caxap03
20.04.2022 02:03
Можно ли скачать photomatch на apple watch? ...
василиска8
11.12.2022 12:02
Составьте характеристику отрасли рыболовства-значение отрасли -основные районы морского рыболовства -первая десятка рыболоветских держав-понятие аквакультура...
flag4
11.12.2022 12:02
Что из перечисленного являлось условиями договора украинского гетмана Выговского с Речью Посполитой? Выберите несколько из 3 вариантов ответа:1) На землях Украины сохранялась...
Lehanbratkov
11.12.2022 12:02
Сделайте схему этого предложения : Куда вы?- сказал Иван Игнатьич, догоняя меня.-Иван Кузьмич на валу и послал меня за вами. Пугач пришёл...
kiramillerthe1
26.11.2020 12:11
Какие утверждения характеризуют мировой океан? а)транспортный путь;б)среда обитания живых организмов;в)источник пресной воды;г)источник тепла ;д)место добычи полезных ископаемых....
sndzhychayana
26.11.2020 12:11
Ептілікті талап ететін спорт түрі?...
Kristinkasssd001
09.10.2021 08:58
МНЕ НУДНО СЕГОДНЯ СДАТЬ ЭТО ВСЕМИРНАЯ ИССТОРИЯ ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Ниже вариант с процедурой, а потом другой, без процедур. Можно сравнить...
// PascalABC.NET 3.2, сборка 1509 от 27.07.2017
// Внимание! Если программа не работает, обновите версию!
Вариант с процедурой
procedure MassAvg(var r:real);
begin
r:=ReadSeqInteger('Вводите:',ReadInteger('n=')).Average
end;
begin
var avg:real;
for var i:=1 to 3 do begin
MassAvg(avg);
Writeln('Среднее значение: ',avg)
end
end.
Вариант без процедур и функций
begin
for var i:=1 to 3 do begin
Writeln('Среднее значение: ',
ReadSeqInteger('Вводите:',ReadInteger('n=')).Average)
end
end.
Результат
n= 7
Вводите: -5 4 11 8 0 5 4
Среднее значение: 3.85714285714286
n= 5
Вводите: 100 32 52 43 19
Среднее значение: 49.2
n= 4
Вводите: 6 6 8 7
Среднее значение: 6.75