Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kkseniyakach
12.08.2022 17:32 •
Информатика
Вцелочисленном массиве a(15), заданном случайным образом найти количество элементов, больших 10.
Показать ответ
Ответ:
HepBbI
03.10.2020 07:47
1. Вот так это нужно решать по-современному
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
Тестовое решение
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
2. А вот так учат решать в школе...
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
Тестовое решение:
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6
0,0
(0 оценок)
Популярные вопросы: Информатика
peterbayroshoxq5ei
19.05.2023 22:10
Сколько четырехзначных чисел, у которых сумма первой и третьей цифр равны сумме второй и четвертой. напишите программу, которая позволит вывести все такие числа. в паскале...
том55551
08.05.2020 11:47
Составить алгоритм вычисления куба суммы всех нечетных чисел от 1 до 99. !Паскаль!...
Арина11841
26.04.2021 14:26
Опишите процесс превращение звука с аналогового представления в цифровое (3-4 предложения я даю 20б...
Титова2017
21.08.2020 07:14
13. Включает две или более ветви решения задачи, выбор ветвизависит от условия:а) программаb) циклический алгоритмс) ветвящийся алгоритмd) линейный алгоритм...
екатерина625
19.03.2021 20:22
Задача: Школа приобрела для ремонта a кг краски. Хватит ли этой краски для покрытия b парт и d дверей,если на парту расходуется 250 г краски, а на дверь 800г? Постановка...
qwert2017y
31.10.2021 03:37
2. Спортсмен в день пробегает x метров. Начав тренировки, он в течении недели увеличивал свой пробег предыдущего дня на 250 метров. Сколько пробегал спортсмен в каждый день...
Kurlyk111
31.08.2021 12:26
С ИНФОРМАТИКОЙ НАДО СДАТЬ СЕГОДНЯ...
АлираПендрагон
03.11.2020 22:07
Значение имени екатерина не менее 9 строк...
Andreyvko1
03.11.2020 22:07
Можно ли не изменяя ни одного звука изменить род существительного грусть ,а существительное лесть превратить в глагол ?...
радуга52
03.11.2020 22:07
Втреугольнике авс медиана ам перпендикулярна медиане вк. найдите площадь треугольника авс, если ам = 10, вк = 6. решите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
Тестовое решение
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
2. А вот так учат решать в школе...
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
Тестовое решение:
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6