Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
pro100pakp01iyt
10.11.2020 19:57 •
Информатика
Задан массив из 8 вещественных чисел.посчитать колличество эллементов массива,меньших 10ю
Показать ответ
Ответ:
ZhannaMeer
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 оценок)
Популярные вопросы: Информатика
ALIONA2020
17.03.2021 08:39
Информатика..............
Гошыш
26.01.2022 06:27
Напишите программу нахождения наименьшего значения среди трех величин: А,В,С.9 класс / Pascal ...
artiktikhonov
04.06.2021 13:56
переписать это уравнение только с символами которые можно скопировать переписать это уравнение только с символами которые можно скопировать! >...
karrygreenk
04.06.2021 13:56
Створити запит на вибірку даних, запит з параметрами і з полями, що обчислюються, запит на змінення....
Seallk
04.11.2020 21:22
Определите значение переменной Sum после выполнения фрагмента программы: i:=0; Sum:=0; while i 4 do begin i:=i+1; Sum:= Sum+3*i; end;...
naval2018
09.05.2023 22:33
Впаскале составить программу: определить делимость на 3 для четырехзначного числа. (думаю, что надо использовать св-во делимости числа: число будет делиться на 3, если сумма...
pelulachka
19.08.2022 23:51
Битовая глубина равна 32, видеопамять делится на две страницы, разрешающая дисплея 800x600. вычислить объем видеопамяти....
ГорголаІлля
28.06.2022 19:47
Правильно описывайте путь к графическим файлам, которые внедряются программно в форму.Рис. 2. Форма для выполнения задания3. Создайте новую процедуру для кнопки «Измени надпись».4....
ali12ali
11.09.2020 22:09
Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в заданную систему счисления с любым основанием от 2 до 9. используйте процедуру....
arinakurbatovu
18.04.2023 16:04
Нужен перевод текста по языку учебник ваулина страница 40 i love saturdays...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.