задача 1.
program a1;
const
n=10; {здесь записываешь количество элементов}
var
b:array[1..n] of integer;
c:array[1..n] of integer;
i,max,d:integer;
begin
for i:=1 to n do
read(b[i]);
for i:=1 to n do
write(b[i],' ');
max:=b[1];
writeln;
for i:=2 to n do
if b[i]>max then
max:=b[i];
writeln('максимальный элемент равен',max);
i:=0;
repeat
i:=i+1;
if b[i]<>max then
d:=max-b[i];
until b[i]<>max;
for i:=1 to n do
if ((max-b[i]<d) or (max-b[i]=d)) and (b[i]<>max) then
d:=max-b[i];
for i:=1 to n do
if max-b[i]=d then
write(b[i],' ')
end. возможно эта задача имеет другое более короткое решение, но я ее смогла решить так =))))
Добавлено (28.01.2008, 18:32)
---------------------------------------------
Задача 2.
program a2;
const
n=4;
var
x:array[1..n,1..n] of integer;
i,j,k,t,m,c,max:integer;
begin
for i:=1 to n do
for j:=1 to n do
read(x[i,j]);
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j],' ');
writeln;
end;
writeln;
k:=1;
for i:=1 to n do
begin
max:=x[i,1];
for j:=2 to n do
if x[i,j]>max then
begin
max:=x[i,j];
m:=i;
c:=j;
end;
t:=x[k,k];
x[k,k]:=max;
x[m,c]:=t;
k:=k+1;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j],' ');
writeln;
end;
end.
А третью задачу не знаю как решать.
