Вычислить выражение, обработав исходные массивы! Free Paskal

[anuta1995]

Найти Z=(x^k1)*(y^k2)/(S1+S2) , где x,y - заданные числа ; S1 и k1 - сумма и количество положительных элементов заданного массиве (a1,a2......,a30), S2 и k2 сумма и количество отрицательных элементов заданного массива(b1,b2.......,b20)

var
a: array [ 1 .. 20] of integer;
b: array [ 1.. 30] of integer;
z : real;
j: integer;
s1,s2,k1,k2,x,y : integer;
procedure Sums( var s1, s2: integer; var k1,k2: integer);
var i: integer;
write('x.y');
realdn(x,y);
begin
s1:= 0 ;
k1:= 0 ;
for i:= 1 to 20 do if a[i]> 0 then begin
s1:=s1+a[i];
inc(k1);
end ;
s2:= 0 ;
k2:= 0 ;
for i:= 1 to 30 do if b[i]< 0 then begin
s2:=s2+b[i];
inc(k2);
end ;
end ;
begin
randomize;
for j:= 1 to 20 do begin
if j<= 30 then b[j]:=Random( 10)- 3;
a[j]:=Random( 10)- 3;
end ;
sums(s1,s2,k1,k2);
z:=(x^k1+y^k2) /(s1*s2);
WriteLn(z);
ReadLn;
end .

Помогите исправить ошибки

[ZX Spectrum-128]

По условию задания а у вас массив до 30, а b до 20. А в разделе var описано наоборот.

И заполнение массивов сделано через... Странно как-то. Напишите два отдельных цикла для каждого массива.

[Stilet]

Ага! Фри. отлично.

var
a: array [ 1 .. 20] of integer;
b: array [ 1.. 30] of integer;
z : real;
j: integer;
s1,s2,k1,k2,x,y : integer;

begin
randomize;
for i:= Low(a) to high(a) do begin a[i]:=Random( 10)- 3; if a[i]> 0 then s1:=s1+a[i];inc(k1); end;
for i:= Low(b) to high(b) do begin b[i]:=Random( 10)- 3; if b[i]< 0 then s2:=s2+b[i];inc(k2); end;

z:=(x^k1+y^k2) /(s1*s2);
WriteLn(z);
ReadLn;
end .

Фсе!!!
И ничего лишнего не надо.

[anuta1995]

Спасибо вам большое . А не подскажите как сделать чтобы Были на рандомные значение А я сама ввела значения X и Y.

[ZX Spectrum-128]

Read(a[i]); вместо random

[anuta1995]

var
a: array [ 1 .. 20] of integer;
b: array [ 1.. 30] of integer;
z : real;
j: integer;
s1,s2,k1,k2,x,y : integer;

begin
randomize;
for i:= Low(a) to high(a) do begin a[i]:=Read(a[i]);; if a[i]> 0 then s1:=s1+a[i];inc(k1); end;
for i:= Low(b) to high(b) do begin b[i]:=Read(b[i]); if b[i]< 0 then s2:=s2+b[i];inc(k2); end;

z:=(x^k1+y^k2) /(s1*s2);
WriteLn(z);
ReadLn;
end .

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

строчка с

randomize;

лишняя! Её нужно выкинуть.
(это иницилизация генератора псевдослучайных чисел).

обязательно добавить иницилизацию переменных s1,s2 и k1, k2 перед циклами.

Нужно ещё дописать ввод x и y:

begin
  WriteLn('Введите x: '); Readln(x);
  WriteLn('Введите y: '); Readln(y);
 
  s1 := 0;  s2 := 0;
  k1 := 0; k2 := 0;
  for i:= Low(a) to high(a) do begin a[i]:=Read(a[i]);; if a[i]> 0 then s1:=s1+a[i];inc(k1); end;
  for i:= Low(b) to high(b) do begin b[i]:=Read(b[i]); if b[i]< 0 then s2:=s2+b[i];inc(k2); end;
...

Остальное похоже на правду...

[Poma][a]

лишняя! Её нужно выкинуть.
(это иницилизация генератора псевдослучайных чисел).

А почему мы должны её выкинуть? Тогда результат будет одним и тем же.. (в нескольких, наиболее распространных версиях паскаля)

[Serge_Bliznykov]

Сообщение от Poma][a

А почему мы должны её выкинуть? Тогда результат будет одним и тем же.. (в нескольких, наиболее распространных версиях паскаля)

потому что мы выкинули random из кода и числа ВВОДЯТСЯ оператором ВРУЧНУЮ

только поэтому он и не нужен. (хотя, конечно, и вреда особого от него никакого не будет!)