Назовите виды программного обеспечения.системное по.прикладное по.системы программирования

var max,min,buf,n1,n2,n3: integer;

begin

readln(n1);

readln(n2);

readln(n3);

if n1> n2 and n1> n3

then

 

begin

max: =n1;

if n2> n3

then 

begin

buf: =n2;

min: =n3;

end;

else 

begin

buf: =n3

end;

end;

else 

 

 

if n2> n1 and n2> n3 then

begin

max: =n2;

if n1> n3 

then

begin

buf: =n1;

min: =n3;

end;

else 

begin

buf: =n3;

end;

end;

else

 

 

begin

max: =n3;

if n1> n2 

then

 

begin

buf: =n1;

min: =n2;

end;

 

else

 

begin 

buf: =n2;

min: =n1;

end;

 

end;

 

end.

 

var a: array[1..1000,1..1000] of integer; i,j,n,m,min,k,k1,str: integer; beginwriteln('vvedite razmernost massiva nxm'); readln(n); readln(m); for i: = 1 to n dobeginfor j: = 1 to m do beginwrite('a[',i,',',j,']: ='); read(a[i,j]); end; end; min: =a[1,1]; for i: =1 to n dofor j: =1 to m dobeginif a[i,j]< min thenbeginmin: =a[i,j]; end; end; k: =0; for i: =1 to n do begin for j: =1 to n do begin if a[i,j]=min then k1: =k1+1; end; if k1> k then begin k: =k1; str: =i; end; end; writeln('stroka s max kolich min elementov: ',str); for i: =1 to n do begin for j: =1 to m do write(a[i,j]: 10); writeln;

end; end.