Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sharunovamaria01
08.04.2023 23:32 •
Информатика
Составить программу на языке паскаль. найти количество элементов одномерного массива а (10), больших 10
Показать ответ
Ответ:
viktoriacotik1
08.10.2020 14:21
Будем считать, что (10) - это кол-во элементов массива. Тогда решение такое:
var
A: array[1..10] of integer;
k, i: integer;
begin
for i := 1 to 10 do
begin
writeln('Введите числа массива:');
readln(A[i]);
if A[i] > 10
then k := k + 1;
end;
writeln('Количество элементов, больших 10 - ', k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Licona
14.10.2021 02:32
1 объясните, как создать новый документ или открыть ранее сохраненный документ в MS Word2. Какие действия входят в редактирование документа?3 объясните назначение основных клавиш,...
VaSa4547
23.04.2022 08:03
Найдите сумму цифр данного квадратного числа....
32453
29.05.2022 04:42
Продвижения стартапа достоинства недостатки...
Zipchik
17.09.2022 14:48
Пользователь вводит 2 числа второе число умножить на 5, первое на 3 (через какую-то программу поскаль)...
MrDeder
02.05.2020 04:57
Определите результаты работы алгоритма: (Под последней стрелочкой написано «конец»)...
Kazhyal
01.03.2023 20:51
ЖЕЛАТЕЛЬНО ВЫПОЛНИТЕ ЗАДАНИЕ...
masterpop15432
24.09.2021 13:25
Ввести c клавиатуры массив из 5 элементов, умножить их на 2 и вывести на экран. пример: введите пять чисел: 4 15 3 10 14 результат: 8 30 6 20 28...
Aron91
22.11.2020 05:24
Склавиатуры вводится номер дня недели.вывести его название на языке. обозначение дней недели: 1- monday 2 tuesday 3 wednesday 4 thursday 5 friday 6 saturday 7 sunday )...
evelina2023
22.12.2022 16:22
Напишите программы. 1. Дано двузначное число. Найти: а) число десятков в нем; б) число единиц в нем; в) сумму его цифр; г) произведение его цифр. 2. Даны вещественные числа...
Ylija2002
23.08.2022 20:01
ОБЯЗАТЕЛЬНО НАРИСУЙТЕ КРУГИ!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
A: array[1..10] of integer;
k, i: integer;
begin
for i := 1 to 10 do
begin
writeln('Введите числа массива:');
readln(A[i]);
if A[i] > 10
then k := k + 1;
end;
writeln('Количество элементов, больших 10 - ', k);
end.