< >

С 10 задачей помощч плез

Приложения:
gfhjkmgfhjkm20: if a[i]>0 then k:=k+1

Ответы

Ответ дал: Koljisto
0

Begin

 var arr:=ArrRandomInteger(ReadInteger('Введите размер массива'),-100,100);

 arr.Println;

 arr.where(x->x>0).Count.Println;

end.

Похожие вопросы
Информатика
1 год назад
операция над объектами векторного изображения: выделение, трансформация, группировка.​
Информатика
1 год назад
ДАЮ 40 БАЛЛОВ ПОЖАЛУЙСТА ПОМОГИТЕ С ИНФОРМАТИКОЙ
Геометрия
1 год назад
Периметр Паралелеграма 34 см . знайти його сторони ,якщо одна з них на 3 см менша за другу ​
Русский язык
1 год назад
Какой тип речи использован во 2-ом абзаце текста? Перечислите его признаки
История
2 года назад
какие две противоречивые тенденции в сфере международных отношений проявляются в послевоенном мире?
Физика
2 года назад
Можно без рисунка Люстра подвешена к потолку. Её масса равна 5 кг.как люстра действует на подвес? Изобразите эту силу на чертеже, как она называется?
Математика
8 лет назад
реши задачу с помощью уравнения: Рак полз 3мин со скоростью 18м/мин. С какой скоростью рак проползет столько же метров пути за 9мин.
География
8 лет назад
Из каких слоев состоит Земля полный ответ