tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Программа на паскаль найти количество
Программа на паскаль найти количество элементов массива целых чисел c(14), больших куба второго элемента массива этого массива. если таких элементов нет выдать сообщение- поиск неудачен
StefaLandon
3 15.09.2019 17:40
0
Ответы
alechka2502
07.10.2020 17:58
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
пашапашаекаро
15.09.2019 01:50
Посчитай, сколько байт информации содержит 72 бит? ответ: байт...
шкуровоз
15.09.2019 01:50
Даны действительные числа .получить а11,,a10, паскаль...
яшка37
15.09.2019 01:50
Пользователь копирует фильм размером 8,3 гигабайта со скоростью 3,5 мегабайта в секунду . найти время скачивания....
bikosh02
15.09.2019 01:50
6. текст в двоичном коде 6/27 условие : 3 б. поработай вычислительной машиной. перед тобой закодированное слово, используя таблицу кодов расшифруй закодированное слово:...
Сережа8910
14.08.2019 10:00
Вмассиве все элементы 10 и 20 заменить на первый элемент массива...
tom159753
07.06.2019 17:50
Сколько существует различных наборов значений логических переменныхx1, x2, x3, x4, y1, y2 y3, y4, которые удовлетворяют всем перечисленным нижеусловиям? (x1 → x2) /\...
snezhana9197
08.09.2019 01:30
Сообщение, записанное буквами 64 символьного алфавита, содержит 110 символов. какой объём информации оно несет? 30 за ответ ток быстрей...
sashazhuravleva
08.09.2019 01:30
Можно ли записать на дискету 3,5 дюйма (1,44 мб) программу,которая занимает 1.000.000 кбайт?...
ulianadmytryk1
17.12.2020 22:27
Сочинение по произведению А. С Пушкина «Капитанская дочка» Название сочинения « Мария Миронова- идеал русской женщины» План: 1. Образ «идеальной» женщины в представлениях...
макс2857
17.12.2020 22:27
Исправить ошибку, которую выдаёт компилятор #include #include using namespace std;int main(){ setlocale(LC_CTYPE, ); cout a b c; if (a == 0) { cout 0) { cout два корня:...
Популярные вопросы
Какой суд совершился над иисусом,от ...
2
При засолюванні овочів використовують водний розчин кухонної солі....
2
Охрана природы Оренбурга и оренбургской области...
1
Розрахувати масу та об’єм кисню(н.у.), який утвориться під час розкладу...
2
Обчисліть відносну молекулярну массу Ba(NO3)2 ...
1
50% от х 20% от х 40% от х х=10 х=4Формула решения:......
3
Прочитай данный фрагмент, определи количество вводных слов и напечатай...
3
решить задачу. На заправку автомашин першого дня витратили 8 бачок...
2
По определению сделай рисунок , назови определяемые понятия и понятия...
3
Розв язати квадратне рівняння...
3
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.