A evo i koda:
Code:
// kreiranje dva niza od jednog postojeceg
Program DvaNiza(input,output);
Uses Dos,Crt;
const
m = 20;
type
niz = array[1..m] of real;
var
n:integer;
a,b,c:niz;
// ucitavanje elemenata niza
procedure citaj(n:integer; var a:niz);
var i:integer;
begin
for i:=1 to n do
read(a[i])
end;
// formiranje novih nizova
procedure formirajNizove(n:integer; a:niz; var b,c:niz);
var i:integer;
begin
for i:=1 to n do
begin
b[i] = a[2*i-1];
c[i] = a[2*i]
end
end;
// ispisivanje elemenata novog niza
procedure pisi(n:integer; var a:niz);
var i:integer;
begin
for i:=1 to n do
write(a[i]:5:2)
end;
begin
write('Unesite broj elemenata niza A: ');
readln(n);
write('Unesite elemente niza A: ');
citaj(n,a);
formirajNizove(n,a,b,c);
write('Niz b: ');
pisi(n,b);
write('Niz c: ');
pisi(n,c);
readkey
end.
// kreiranje dva niza od jednog postojeceg
Program DvaNiza(input,output);
Uses Dos,Crt;
const
m = 20;
type
niz = array[1..m] of real;
var
n:integer;
a,b,c:niz;
// ucitavanje elemenata niza
procedure citaj(n:integer; var a:niz);
var i:integer;
begin
for i:=1 to n do
read(a[i])
end;
// formiranje novih nizova
procedure formirajNizove(n:integer; a:niz; var b,c:niz);
var i:integer;
begin
for i:=1 to n do
begin
b[i] = a[2*i-1];
c[i] = a[2*i]
end
end;
// ispisivanje elemenata novog niza
procedure pisi(n:integer; var a:niz);
var i:integer;
begin
for i:=1 to n do
write(a[i]:5:2)
end;
begin
write('Unesite broj elemenata niza A: ');
readln(n);
write('Unesite elemente niza A: ');
citaj(n,a);
formirajNizove(n,a,b,c);
write('Niz b: ');
pisi(n,b);
write('Niz c: ');
pisi(n,c);
readkey
end.
Svaka pomoc je dobrodosla.