"Страны мира";
СТРАНА – символьный
СТОЛИЦА – символьный
ПЛОЩАДЬ – числовой
НАСЕЛЕНИЕ – числовой
ПОСЕЩАЛ – логический
"Мои одноклассники";
ФАМИЛИЯ – символьный
ИМЯ – символьный
АДРЕС – символьный
ТЕЛЕФОН – символьный
РОДИЛСЯ – дата
"Кинофильмы";
НАЗВАНИЕ – символьный
СТРАНА – символьный
ЖАНР – символьный
РЕЖИССЕР – символьный
ДУБЛИРОВАН – логический
"Телефонный справочник";
ФИО – символьный
АДРЕС – символьный
НОМЕР – числовой
"Мои посещения врача".
ДАТА – дата
ДИАГНОЗ – символьный
ЛЕЧЕНИЕ – символьный
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,0,50);a.PrintLn;
Writeln(a.Where(t -> t < 50).Count);
end.
Пример:
16 38 2 12 48 5 18 12 27 12 48 5 6 43 28
15
Например есть: сканер, видеокарта.
активное действие - котёнок бежит, автомобиль едет
пассивное действие - котёнок спит, автомобиль стоит
___________________________________