Функции

[repchic]

пожалуйста помогите написать программу на Паскале
вот задание:Вычислить суммы положительных элементов массивов X(N), Y(M), Z(K).(N<=60 M<=60 K<=70).Заранее благодарен

[whatever]

sumX:=0;
sumY:=0;
sumZ:=0;
for i:=1 to N do
  if x[i]>0 then inc(sumX);
for i:=1 to M do
  if y[i]>0 then inc(sumY);
for i:=1 to k do
  if z[i]>0 then inc(sumZ);

[unbanned]

to whatever

ваша программа

sumX:=0;
sumY:=0;
sumZ:=0;
for i:=1 to N do
  if x[i]>0 then inc(sumX);
for i:=1 to M do
  if y[i]>0 then inc(sumY);
for i:=1 to k do
  if z[i]>0 then inc(sumZ);

вычислит количество, а не сумму положительных элементов

а задание вычислить сумму положительных элементов...
следовательно

sumX:=0;
sumY:=0;
sumZ:=0;
for i:=1 to N do
  if x[i]>0 then sumX:=sumX+x[i];
for i:=1 to M do
  if y[i]>0 then sumX:=sumY+y[i];
for i:=1 to k do
  if z[i]>0 then sumZ:=sumZ+z[i];

или, если вам все таки хочется использовать inc()

sumX:=0;
sumY:=0;
sumZ:=0;
for i:=1 to N do
  if x[i]>0 then inc(sumX, x[i]);
for i:=1 to M do
  if y[i]>0 then inc(sumY, y[i]);
for i:=1 to k do
  if z[i]>0 then inc(sumZ, z[i]);

[whatever]

Мой косяк, согласен.

[repchic]

спасибо огромное,но мне требовалось через функцию найти суммы положительных элементов

[Hacker19_90]

function GetSum (const Mas: array of integer; const count: integer): integer;
var
    sum: integer;
    i: integer;
begin
    sum := 0;
    for i := 1 to count do
        if mas[i] > 0 then Inc(sum, mas[i]);
    GetSum := sum;
end;

[repchic]

у меня теперь следующий вопрос,вот я написал программу,но никак не могу додуматься как вывести сумму пол-х элементов массивов X,Y,Z.вот код:Program LabRab6;
Uses crt;
Type mas=array[1..200] of integer;
Var x,y,z:mas;
i,sum,count,n,m,k:integer;
Function GetSum(const mas:array of integer; const count:integer):integer;
Var sum:integer;
i:integer;
begin
sum:=0;
for i:=1 to count do
if mas[i]>0 then sum:=sum+mas[i];
sum:=sum+mas[i];
GetSum:=sum;
end;
begin
window(1,1,80,25);Textattr:=27;clrs cr;
randomize;
n:=60;m:=60;k:=70;
write('Massiv X');
for i:=1 to n do begin
x[i]:=random(61)-30;
write(x[i],':');
end;
writeln('Massiv Y');
for i:=1 to m do begin
y[i]:=random(61)-30;
write(y[i],':');
end;
writeln('Massiv Z');
for i:=1 to k do begin
z[i]:=random(71)-35;
write(z[i],'|');
end;
readkey;
end.

[Hacker19_90]

например так

    Writeln ('Сумма положительных элементов массива X равна ', GetSum(X, n));

[repchic]

Благодарю,огромное спасибо Hacker19_90