В одномерном массиве, состоящем из n вещественных элементах. Вычислить произведение положительных элементов массива. Написать программу на языке Паскаль.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
PascalABC.NET
begin
var n := ReadInteger('укажите длину массива: ');
var A := ReadArrReal('Вводи: ',n);
A.Where(x-> x>0).Product.Println;
end.