tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Задан массив из 8 вещественных
Задан массив из 8 вещественных чисел.посчитать колличество эллементов массива,меньших 10ю
poshova002
2 12.07.2019 02:00
1
Ответы
arinayakovenkop09u55
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Abdua245
21.12.2020 08:56
Нужно Что такое график функции?2) Какой тип графика лучше всего подходит для отображения данных математических функций?...
Aikony
21.12.2020 08:54
Можно ли форматировать текст если он уже стал частью рисунка...
verazotova04
21.12.2020 08:54
Сопоставить элементы диаграммы...
anuchka666
21.12.2020 08:54
Посчитайте информационный обьем сообщений которое содержит 7 страниц 50 строк , 32 синвода юникод?...
Ольга25052000
17.05.2019 11:10
:1) бульдог | доберман | уход 2)бульдог | доберман | уход | питомник 3) доберман | бульдог 4) (доберман | бульдог) & уход представьте результаты этих запросовграфически с кругов...
2006yfcnz
17.05.2019 11:10
Разработать блок-схему и программу, которая запрашивает массив из n целых чисел, выводит номера отрицательных элементов и сами эти элементы) вот эти числа: а) 3,5,-2,3,-2,0,-6,-8,1;...
AsanovaLiana
10.10.2019 21:28
Как перевести из десятичной системы в двоичную 2010( с решением,не просто ответ)...
Farxadkishi
01.07.2019 23:00
Записан рекурсивный алгоритм f/ procedure f(n: integer); begin writeln(n); if n 0 then begin f(n - 1); f(n - 3) end; end чему равна сумма всех чисел напечатанных на экране при выполнении...
гол38
10.07.2019 13:20
Придумай в тетради в клетку рисунок,который можно создать с клавиатуры.раскрась используемые клавиши....
Darina02020
10.07.2019 13:20
Пределить объем видеопамяти в килобайтах для графического файла размером 640×480 пикселей и палитрой из 32 цветов...
Популярные вопросы
Какой фактор почвообразования является главным в образовании плодородия почв? а)климатб)рельефв)тип...
2
Почему реакция галогенирования у метана идет в 4 стадии...
2
Самостійна робота 13. Раціональні числа. Додавання і віднімання раціональних чиселЗАПЛАЧУ...
2
Жерлеу рәсімінде қандай ерекшеліктер бар? помагите тініш кометке жазындарш білмеймін...
3
Спичка длиной l = 4 см плавает на поверхности воды. Если по одну сторону от спички...
1
Решите логарифм log3^2x-log 3 x^3 =-2...
1
Кыпчакам удалось создать крупное государство ? ...
3
Тест: Виберіть правильну відповідь ( одне завдання ): знайдіть менший корінь квадратного...
3
РУССКИЙ ЯЗЫК 6 КОАСС ТЕМА ИМЕНА ПРИЛАГАТЕЛЬНЫЕ ...
3
3. Екі түзуді үшінші түзу қиып өткенде пайда болған түс- тас бұрыштардың шамасы...
2
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.