Предмет: Информатика,
автор: yfdiguigo8ry
составьте программу нахождения суммы положительных значений массива.Дан массив состоящий из 15 элементов.Значение массива произвольные числа.
Ответы
Автор ответа:
0
const
nmax=5;(любое число можешь поставить)
type
mas = array [1..nmax] of integer;
var
A:mas;
sum,n:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
if (A[i] > 0) then sum:=sum+A[i];
writeln('Summa=',sum);
end.
nmax=5;(любое число можешь поставить)
type
mas = array [1..nmax] of integer;
var
A:mas;
sum,n:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
if (A[i] > 0) then sum:=sum+A[i];
writeln('Summa=',sum);
end.
Похожие вопросы
Предмет: Математика,
автор: sarakpaevkanat
Предмет: Математика,
автор: angelinapresnova03
Предмет: Қазақ тiлi,
автор: top492088
Предмет: Химия,
автор: tanyasyrgina
Предмет: Математика,
автор: aliyashaganova