Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
pchelenyok
12.02.2022 02:25 •
Информатика
Написать программу с циклов которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое
Показать ответ
Ответ:
TJ32
04.08.2020 07:18
Uses crt;
const n=15;var a:array[1..100] of integer;i,k:byte;beginfor i:=1 to n do begina[i]:=random(9);write(a[i]:2);end;for i:=1 to n do beginif a[i]=0 thenbeginwriteln;k:=i;writeln('первый нулевой элемент i=',k);break;end;end;end.
0,0
(0 оценок)
Популярные вопросы: Информатика
2001maks44
19.05.2020 05:51
очень Напишите программу на языке Паскаль для решения задачи:1. Запросить от пользователя трехзначное натуральное число.2. Разбить число на цифры. 3. Найти сумму и произведение...
Boris2006
14.05.2022 15:16
Сканируется цветное изображение размером 10х10 см. Разрешающая сканера 600 dpi и глубина цвета 16 бит. Какой информационный объем будет иметь полученный графический...
shoeva02
21.01.2021 18:32
Как нарисовать смайлик в программе QBasic???...
viki157
15.12.2022 08:35
Количество пикселей: 1920000. Запиши верный ответ, округли ответ до сотых.1920000 пикселей = мегапикселей....
drgotika2011
16.09.2022 14:54
Составить алгоритм вычисления значения функции y=7x+5 при любом значении x. Надо делать в Паскаль АВС...
Касоничка
26.07.2020 10:13
Складіть проект, у якому виконавець намалює прямокутник, одна зі сторін якого на 20 кроків більша за іншу.ЗАДАНИЕ В Python EDLE...
sashik2005
09.06.2021 13:33
Массив из десяти элементов заполнили, а потом изменили. Чему будет равна сумма значений элементов массива после выполнения фрагмента программы? for i := 1 to 10 do A[i]:=i;...
poroshind
29.05.2021 19:59
Написать программу, вычитающую площадь ромба если d1=8 a d2=6...
yanaprosandeeva
24.03.2022 11:02
Для каждого из приведенных ниже высказываний (утверждений) записать эквивалентное ему логическое выражение на языке Pascal и составить программу, позволяющую установить...
liza1367
25.07.2020 20:06
Отметьте все виды файлов, которые можно назвать документами....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=15;var a:array[1..100] of integer;i,k:byte;beginfor i:=1 to n do begina[i]:=random(9);write(a[i]:2);end;for i:=1 to n do beginif a[i]=0 thenbeginwriteln;k:=i;writeln('первый нулевой элемент i=',k);break;end;end;end.