Statistici |
Total online: 1 Vizitatori: 1 Utilizatori: 0 |
|
program Project3;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
Type vector=array[1..1000,1..1000] of integer;
var a:vector;
var w,min,d,s,p,i,n,j,m,sum1,pv:integer; med1,v,med:real;
Function media :real;
begin
med:=0; s:=0; p:=0;
for i := 1 to n do
for j := 1 to m do begin
if i=j then begin s:=s+a[i,j] ; P:=p+1 ;
end;
end;
med:=s/p;
media:=med;
end;
Procedure introd;
begin
for i := 1 to n do
for j := 1 to m do begin
Writeln('A[',i,j,']= '); readln(a[i,j]);
end;
end;
Procedure afis;
begin
for i := 1 to n do begin
for j := 1 to m do
write(a[i,j]:3);writeln;
end;
end;
Function medimp:real;
begin
pv:=0;sum1:=0; med1:=0;
for i := 1 to n do
for j := 1 to m do begin
if odd(a[i,j]) then begin sum1:=sum1+a[i,j]; pv:=pv+1; ;
end;
end ;
med1:=sum1/pv;
medimp:=med1;
end;
Function inloc:integer;
begin
for i := 1 to n do
for j := 1 to m do begin
if a[i,j]=(3) then a[i,j]:=(5);
end;
end;
Function min1:integer;
begin
min:=a[1,1];
for i := 1 to n do
for j := 1 to m do begin
if (a[i,j]>0) and (a[i,j]<min) then begin
min:=a[i,j]; writeln('Pozitia celui mai mic numar pozitiv este: ',a[i,j]);
end;
end;
end;
Function nr:integer;
begin
for i := 1 to n do
for j := 1 to m do begin
if a[i,j]=min then begin w:=w+1; writeln('Elementul egal cu cel mai minim este: ',a[i,j]);
Writeln('Pozitia lui este: ',i,j);
end;
end;
nr:=w;
end;
Procedure inl;
begin
for i := 1 to n do
for j := 1 to m do begin
if a[i,j]<0 then begin
end;
end;
end;
begin
Writeln('Introduceti nr de rinduri: '); readln(n);
Writeln('Introduceti nr de coloane: '); readln(m);
introd;
afis;
v:=media;
writeln('Media pe diagonala este : ',media);
Writeln('Media nr impare este: ', medimp);
Writeln('Matricea dupa inlokuire nr 3 cu nr 5 este: ');
Writeln(inloc);
afis;
min1;
writeln('Cel mai mic numar pozitiv din matrice este: ',min);
nr;
Writeln('S-au gasit : ',w,' elemnte egale cu cel mai minim ');
readln
end.
|
|