Написать функцию для определения суммы положительных элементов одномерного массива

@Mark1615 · Регистрация: 04.04.2014

Написать функцию для определения суммы положительных элементов одномерного массива.

@Gabdulhanov · 04.04.2014, 18:17

Pascal

const n=10;
type arr=array [1..n] of integer;
var i:integer;
a:arr;
function summa(mas:arr):integer;
var sum:integer;
begin
sum:=0;
for i:=1 to n do
if (mas[i]>=0) then sum:=sum+mas[i];
summa:=sum;
end;
 
begin
for i:=1 to n do a[i]:=Random(50)-25;
for i:=1 to n do Write(a[i]:4);
Writeln;
Writeln('summa=',summa(a));
end.

@Mark1615 0 / 0 / 0 Регистрация: 04.04.2014 Сообщений: 30
		1
	Написать функцию для определения суммы положительных элементов одномерного массива 04.04.2014, 18:09. Показов 1665. Ответов 1 Метки нет (Все метки) Написать функцию для определения суммы положительных элементов одномерного массива. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Написать функцию для определения суммы положительных элементов одномерного массива

Решение