Цитата:
Сообщение от antishoker
1) Вычислить z=(s1+s2)/k1k2 , где s1 и k1 - сумма и количество положительных элементов массива X (25); s2 и k2 - сумма и количество положительных элементов массива Y (20).Использовать подпрограмму-процедуру.
|
Код:
var
x:array [1..25] of integer;
y:Array [1..20] of integer;
i,s1,s2,k1,k2:integer;
z:real;
procedure init_x;
begin
for i:=1 to 25 do begin
x[i]:=random(30)-15;
write (x[i]:3);
end;
end;
procedure init_y;
begin
for i:=1 to 20 do begin
y[i]:=random(30)-15;
write (y[i]:3);
end;
end;
procedure first;
begin
s1:=0;
k1:=0;
for i:=1 to 25 do begin
if x[i]>0 then
s1:=s1+x[i];
end;
k1:=s1;
end;
procedure second;
begin
s2:=0;
k2:=0;
for i:=1 to 25 do begin
if x[i]>0 then
s2:=s2+x[i];
end;
k2:=s2;
end;
begin
randomize;
init_x;
writeln;
init_y;
first;
second;
writeln;
z:=(s1+s2)/k1*k2;
writeln ('z=',z);
readln
end.