Создать программу нахождения количества всех положительных элементов массива
Создать программу нахождения количества всех положительных элементов массива
Гость
Ответ(ы) на вопрос:
Гостьwriteln('Введите количество элементов в массиве');
readln(n);
for i:=1 to n do
begin
writeln('Введите элемент массива');
readln (A[i]);
end;
Sum:=0;
for i:=1 to n do
if a[i]>0 then
Sum:=Sum+a[i];
Writeln('Сумма положительных элементов = ' Sum)
Не нашли ответ?
Похожие вопросы