Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
romak3104Ромчук
12.10.2022 23:39 •
Информатика
Напишите программу и вычислить среднее арифметическое четырех значений , введенных с клавиатуре.
Показать ответ
Ответ:
Roman07156
02.10.2020 18:39
Var sm,d,h, Sr:real;i:integer;
var s:array[1..4]of real;
begin
for i:=1 to 4 do begin
write('Введите число');
read(s[i]);
sm:= sm + s[i];
end;
sr:=sm/4;
write('sr = ',sr:6);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
артлжьт
27.02.2022 22:35
13. для хранения растрового изображения размером 16х32 пикселя отвели 1 килобайт памяти. каково максимально возможное число цветов в палитре изображения?...
бомж23
31.12.2021 04:14
Необходимо удалить k - ый элемент из массива т , состоящего из n элементов . ( 3 )...
wifaretaba
22.08.2020 13:29
1. цвет пикселя изображения определяется тремя составляющими: зеленой, синей и красной. под красную и синюю составляющие пикселя отвели по 10 битов. сколько битов...
Саня11671873478
13.07.2020 11:35
3. какой минимальный объем памяти (в кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 768х96 пикселей при условии, что...
mekhronaismatov
24.02.2022 22:41
6. сколько секунд потребуется модему, информацию со скоростью 1 кб/с, чтобы передать цветное растровое изображение размером 512х256 пикселе, при условии, что цвет...
Amirkazakov
18.10.2022 19:30
10. какой минимальный объем памяти (в кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 96х256 пикселей при условии,...
bazroval
14.05.2021 01:29
Для узла с ip адресом 238.11.77.198 адрес сети равен 238.11.0.0 чему равно наибольшее возможное значение третьего слева байта маски?...
RTAKZM
06.04.2022 03:04
Вматрице 5*5 найти сумму элементов каждой четной строки матрицы.pascal abc...
Фруктовыйостров
05.03.2021 17:02
Лабораторная работа по информатике...
bogahewa78
08.04.2022 13:55
Сколько различных кодов хаффмена существует для алфавита из k символов?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s:array[1..4]of real;
begin
for i:=1 to 4 do begin
write('Введите число');
read(s[i]);
sm:= sm + s[i];
end;
sr:=sm/4;
write('sr = ',sr:6);
end.