Pascal.Uzdavinys

Duoti X(n), Z(t) masyvai. Rasti xi priklausanciu [A;B] sandaugą, bei zi nepriklausanciu[C;D] arba nepriklausanciu[E;F]

aritmetinį vidurkį.Jei sandauga mažesnė už aritmetinį vidurkį, tai sandaugą įrašyti vietoj pirmų abiejų masyvų elementų.

Aciu is anksto ;)

Taip sakant ant greitųjų parašiau, tad gali būt klaidų. :lol:

program masyvai;
type mas = array[1..100000] of integer;
var X,Z:mas;
k,i,n,t,xi,A,B,C,D,E,F:integer;
zi:real;
begin
xi:=1;
for i:=1 to n do
 begin
  if (X[i]>=A) and (X[i]<=B) then
xi:=X[i]*xi;
 end;
zi:=0;
k:=0;
for i:=1 to t do
 begin
  if (Z[i]<=C) and (Z[i]>=D) and (Z[i]<=E) and (Z[i]>=F) then
begin
 zi:=Z[i]+zi;
 k:=k+1;
end;
 end;
zi:=zi/k;
if xi<zi then
begin
X[1]:=xi;
Z[1]:=xi;
end;
end.

Vis vien lb lb lb aciu :lol:

Prašom.:lol: O bandei testuot?