FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Lista Forumurilor Pe Tematici
|
FORUM | Reguli | Inregistrare | Login
POZE FORUM
Nu sunteti logat.
|
Nou pe simpatie:
Profil mary24
 | Femeie
24 ani
Braila
cauta Barbat
25 - 56 ani |
|
eggzit
Username: 6R9PKQUKKU
 Inregistrat: acum 20 ani
Postari: 215
|
|
{tablou dibimensional cu n linii si m coloane de nr nat
sa se afiseze toate pct cu aspect de vf.
mat.in}
program douazecisidoi;
type mat=array[0..25,0..25] of integer;
var a:mat;
n,m:integer;
procedure citire(var a:mat; var n,m:integer);
var i,j:integer;
f:text;
begin
assign(f,'mat.in'); reset(f);
readln(f,n,m);
for i:=1 to n do
for j:=1 to m do read(f,a[i,j]);
end;
function varf(i,j:integer):boolean;
var x:integer;
begin
varf:=true; x:=a[i,j];
if (a[i,j-1]>x) or (a[i,j+1]>x) or
(a[i-1,j-1]>x) or (a[i-1,j]>x) or (a[i-1,j+1]>x) or
(a[i+1,j-1]>x) or (a[i+1,j]>x) or (a[i+1,j+1]>x)
then varf:=false;
end;
procedure sc_varf;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
if varf(i,j) then writeln(a[i,j]);
end;
begin
citire(a,n,m);
sc_varf;
readln;
end.
|
|
| pus acum 18 ani |
|