1. Информатика
  2. Введите с клавиатуры

Введите с клавиатуры массива d из n элементов целого типа,нумерация элементов начинается с 1 и найти количество элементов меньше чем 21 входные данныеn=4 1 23 45 7 выходные данные 2 паскаль можно через random побыстрее тока

NovaHelper NovaHelper    1   31.08.2019 23:00    0

Ответы
ilya20063 ilya20063  06.10.2020 08:34
Var
  n: integer;

begin
  readln(n);
  var a := ArrRandom(n, -10, 30).Println;
  writeln(a.Where(x -> x < 21).Count);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
яирхаФ яирхаФ  14.09.2019 14:04
Определите значения переменных после выполнен следующих фрагментов программы. ответы запишите в виде целого числа....
alinkamalinka499 alinkamalinka499  18.06.2019 10:00
Запишите в развернутом виде следующие числа: а)а10=361,105 б)а16=224 в)а8=521 г)а2=111011...
Sekretnova Sekretnova  18.06.2019 10:00
Скорость передачи данных по некоторому каналу равна 118 272бит/с.время,которое было затрачено на передачу данного файла равно 16с.каков был размер файла в килобайтах? в...
KILLER435 KILLER435  18.06.2019 10:00
Для чего служит базовая составляющая по и каковы её основные...
ника2569 ника2569  18.06.2019 10:00
Дана строка. написать программу, которая позволяет заменить буквы а на букву g...
Софийка646436 Софийка646436  18.06.2019 10:00
Надо дано трехзначное число (вводится одно число). 1найти число, полученное при прочтении его цифр справа налево. 2в нем зачеркнули первую слева цифру и приписали ее в...
danilarostov2 danilarostov2  18.06.2019 10:00
Сформируйте одномерный массив состоящий из 20 случайных двузначных чисел в диапазоне от 10 до 99 определить сколько раз будет число 35...
MARINETT31 MARINETT31  18.06.2019 10:10
Какой результат вернет функция length(s)? a)s : = pascal ;...
nadyukov nadyukov  18.06.2019 10:10
Вкаком году вышла первая антивирусная программа...
амаикем амаикем  18.06.2019 10:10
Найти и вывести на экран сумму всех трех значных чисел кратных k ( k вводится с клавиатуры )...

Популярные вопросы