Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
M18voronenko
19.09.2020 23:29 •
Информатика
Задан массив из 8 вещественных чисел.посчитать колличество эллементов массива,меньших 10ю
Показать ответ
Ответ:
Samal0
03.10.2020 01:37
Var A:array[1..10] of Real;
i,k:integer;
begin
For i:=1 to 8 do
Readln(A[i]);
For i:=1 to 8 do
If A[i]<10 then
k:=k+1;
Writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sasha1027821
24.04.2021 04:17
Записать в цикле for строку заполнения массива из двенадцати элементов случайным образом: а) вещественными значениями, лежащими в диапазоне [0, 1]; б) вещественными...
maximyakimov20p00ywe
10.04.2023 21:06
S: = 12345 ; n : = length(s) + length( 456 ); writeln ( n ); как работает эта программа...
асиям1239
25.05.2023 09:06
решить задачу на В файле input.txt записаны данные об участниках конкурса «Рога и Копыта»: фамилии, имена и количество , набранных в первом туре. Во второй тур...
Аринаqwe
22.10.2020 11:48
напишите программу в паскале для подсчета положительных чисел (с оператором repeat) на основе программы из классной работы...
Liana250202
13.06.2021 01:21
Запустите текстовый редактор. Напишите краткое объявление о наборе на курсы по вождению. Создайте гиперссылку в данном объявлении.Запишите гиперссылку...
katmar
16.08.2022 02:37
Укажите алгоритм создания сноски Нажать правую кнопку мыши на место для ссылки, сноски или концевой сноски. На вкладке «ссылки» выбрать Вставить сноску или концевую...
LunnayaLiliya
29.03.2020 15:09
3.Pr = 1 for i in range(1, 4): Pr *= iprint(Pr)Какое число будет выведено?( : 1)61249...
azarkan
08.01.2023 08:49
Яка команда перемістить Черепашку на 100 кроків вперед? run(100) forward(100) forward(-100) backward(100) Питання №5 ? Оберіть команду повернути черепашку вліво...
kira310
07.02.2021 03:40
Сколько удалить гиперссылку? 1234 ...
arzumirzeyeva
07.02.2022 19:04
Зайдите на сайт бесплатной интерактивной службы переводов или воспользуйтесь другим онлайн-переводчиком. Выполните компьютерный перевод текста. На проверку пришлите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k:integer;
begin
For i:=1 to 8 do
Readln(A[i]);
For i:=1 to 8 do
If A[i]<10 then
k:=k+1;
Writeln(k);
end.