PROGRAM SZÁMOK POZICÍÓJA

var v:array [1..10] of integer;
var n,i:integer;
begin
readln(n);
for i:=1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;
for i:=1 to n do begin
if v[i] mod 2 = v[n] mod 2 then writeln(i);
end;
end.


PROGRAM ELEMEK ÖSSZEGE

var v:array [1..100] of integer;
var S,n,i:integer;
begin
S:=0;
readln(n);
for i:=1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;
for i:=1 to n do begin
if v[i] < v[1] then S:=S+v[i];
end;
writeln(S);
end.


PROGRAM HARMADIK

var v:array [1..100] of integer;
var n,i:integer;
begin
readln(n);
for i:=1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;
for i:=1 to n do begin
if (v[1]<0) and (v[i]<0) then writeln(i)
else begin if (v[1]<0) and (v[i]<0) then writeln(i);
end;
end;
end.


PROGRAM PÁRATLANOK KIÍRÁSA

type vektor = array [1..100] of integer;
var x,v:vektor;
var n,i,k:integer;
begin
write('Kérem gépelje be az N értékét:');readln(n);
for i:= 1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;
for i: 1 to n do
if v[i] mod 2 = 1 then begin
k:=k+1;
x[k]:=v[i];
end;
for i:= 1 to k do
writeln(x[i]);
end.



PROGRAM EGY (A) SZÁMMAL VALÓ OSZTÁS

type vektor = array [1..50] of integer;
var x,v:vektor
var a,n,i,S:integer;
begin
S:=0;
write('Kérem gépelje be az N értékét:');readln(n);
write('Kérem gépelje be az A értékét:');readln(a);
for i:= 1 to n do begin
write('v[',i,']=');
readln(v[i]);
if v[i] mod a = 0 then x[i]:=v[i];
S:=S+x[i];
end;
writeln(S);
end.



PROGRAM NEGATÍV VAGY POZITÍV SZÁMOK

var v:array [1..100] of real;
var i,n:integer;
var S,x:real;
begin
write('Kérem gépelje be az N értékét: ');readln(n);
for i:= 1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;
S:=0;
x:=0;
for i:= 1 to n do
if v[i]>0 then S:=S+v[i]
else x:=x+v[i];
writeln('A pozitív számök összege: ',S);
writeln('A negatív számok összege: ',x);


PROGRAM NÉGYZETEK

type vektor = array [1..100] of integer;
var v,x:vektor;
var n,i:byte;
begin
write('Kérem gépelje be az N értékét: ');readln(n);
for i:=1 to n do begin
write('v[',i,']=');
readln(v[i]);
x[i]:=v[i]*v[i];
end;
for i:=1 to n do
writeln(x[i]);
end.