Создайте массив a из 18 целых чисел, принадлежащих полуинтервалу [0;30) Подсчит...

July 2022 1 4 Report

Создайте массив a из 18 целых чисел, принадлежащих полуинтервалу [0;30)
Подсчитайте k количество элементов, значение которых превышает 15

Answers & Comments

Ленгит // PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(18,0,30); a.Println;
Writeln('Элементов, превышающих значение 15: ',a.Where(x->x>15).Count)
end.

Пример
24 26 26 25 15 22 11 16 5 28 5 3 13 9 15 24 2 0
Элементов, превышающих значение 15: 8

Andreu53rus А вот где write(a[i]:3, ‘ ‘) там точно 3?

Answers & Comments

reshite pozhalujsta 1 zadanie polnostyu v paskale

reshite pozhalujsta krome dop

reshite zadanie polnostyu krome dopolnitelnogo pozhalujsta srochno

reshite krome dop paskal

рекомендуемые вопросы

Helpful Links

Helpful Social