Question

1. Составить программу ввода с клавиатуры шести чисел и нахождения суммы тех из них, которые больше 4.
2. Дан массив целых чисел А, состоящий из 7 элементов. Заполнить его с клавиатуры. Найти произведение положительных элементов массива.

Answer 1

Ответ:

• begin
• Println('Результат:',ReadArrInteger(6).Sum(x->x>4?x:0));
• Println('Результат:',ReadArrInteger(7).Product(x->x>0?x:1));
• end.

Первая строчка -- первое задание, вторая -- второе.

Пример работы: