Среда, 09 Сен 2009
Дан массив целых чисел. Найти элемент с максимальным или с минимальным значением, который находится ближе к началу массива.
Program beginmax;
const n=10;
var
A:array [1..n] of integer;
i,nmin,nmax:integer;
begin
writeln();
nmin:=1;
nmax:=1;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
if a[nmin]>a[i] then nmin:=i;
if a[nmax]<a[i] then nmax:=i;
end;
writeln();
if nmax>nmin then writeln(’min’);
if nmin>nmax then writeln(’max’);
if nmax=nmin then writeln(’vsw elementi ravni’);
end.
Рубрика: Массив | Comments Off
Среда, 09 Сен 2009
Дана матрица целых чисел. Найти наибольший и наименьший элемент матрицы и поменять их местами.
Program maxmin;
const n=4;m=4;
var
A:array [1..n,1..m] of real;
i,j,imin,jmin,imax,jmax:integer;
max,min:real;
begin
writeln;
for i:=1 to n do
for j:=1 to m do A[i,j]:=random(100000)/100;
max:=a[1,1];
imax:=1;
jmax:=1;
min:=a[1,1];
imin:=1;
jmin:=1;
for i:=1 to n do begin
writeln();
for j:=1 to m do begin
write(A[i,j]:5:2,’ ‘);
if max<a[i,j] then begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
if min>a[i,j] then begin
min:=a[i,j];
imin:=i;
jmin:=j;
end;
end;
end;
a[imin,jmin]:=max;
a[imax,jmax]:=min;
writeln();
for i:=1 to n do begin
writeln();
for j:=1 to m do write(A[i,j]:5:2,’ ‘);
end;
end.
Рубрика: Матрица | Comments Off