Laura PorterНаписать программу решения следующей задачи: Вычислить z=(s1+s2)/2 , где s1 – сумма положительных элементов массива X(15); s2 – сумма отрицательных элементов массива Y(20). Использовать подпрограмму. посчитайте НАЙТИ ОШИБКУ В КОДЕ:program z_2;varx:array[1. . 100] of integer;y:array[1. . 100] of integer;z:real;i,j,n:integer;s1,s2:integer;proceduresums(var s1,s2:integer);begins1:=0;write ('n='); readln(n);for i:=1 to n do beginwrite('x[',i,']='); readln(x[i]);end;for i:=1 to n doif x[i]>0 then begins1:=s1+x[i];end;s2:=0;for j:=1 to n do beginwrite('y[',j,']='); readln(y[j]);for j:=1 to n doif y[j]<0 then begins2:=s2+y[j];end;beginsums(s1,s2);z:=(s1+s2)/2;writeln('z=',z:4:4);end.
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
напутано было со скобками(Begin - end) и убрал два цикла
program z_2;
var
x:array[1. . 100] of integer;
y:array[1. . 100] of integer;
z:real;
i,n:integer;
s1,s2:integer;
procedure sums(var s1,s2:integer);
begin
s1:=0;
write ('n=');
readln(n);
for i:=1 to n do begin
write('x[',i,']=');
readln(x[i]);
if x[i]>0 then s1:=s1+x[i];
end;
s2:=0;
for i:=1 to n do begin
write('y[',i,']=');
readln(y[i]);
if y[i]<0 then s2:=s2+y[i];
end;
end;
begin
sums(s1,s2);
z:=(s1+s2)/2;
writeln('z=',z:4:4);
end.
(*-------------2 вариант немного модифицированный-----------------*)
program z_2;
21
LaurentЧтобы ответить необходимо зарегистрироваться.
