FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Profil carmenitza
 | Femeie
24 ani
Ialomita
cauta Barbat
24 - 48 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|