все. но с каждой баллы сняли
что?
ответила тебе на вопрос, все ли решила. А ссылку на олимпиаду написала в личку.
Олимпиада школьников СПбГУ 2013-2014 - у нее 1 уровень. А если математик, то сейчас идет ОММО и ММО.
ок

Ответы и объяснения

Лучший Ответ!
2014-01-20T03:16:09+04:00
Program gt;
var a:array[1..5,1..5]of integer;
n,i,j:integer;
begin
n:=5;
for i:=1 to n do
begin
for j:=1 to n do
begin
read(a[i,j]);
if(i=j)then a[i,j]:=0;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end.
2)
program gt;
var a:array[1..5,1..5]of integer;
n,i,j,s:integer;
p:real;
begin
n:=5;
for i:=1 to n do
begin
for j:=1 to n do
begin
read(a[i,j]);
s:=s+a[i,j];
end;
end;
writeln(s);
p:=s/25;
writeln(p);
end.
3)
program gt;
var a:array[1..5,1..5]of integer;
n,i,j,s:integer;
begin
n:=5;
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
begin
s:=a[i,1];
a[i,1]:=a[i,5];
a[i,5]:=s;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j],' ');
end;
writeln;
end;
end.
4)
program gt;
var a:array[1..5,1..5]of integer;
n,i,j,max,x,y:integer;
begin
n:=4;
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(5);
max:=a[1,1];
x:=1;
y:=1;
for i:=1 to n do
for j:=1 to n do
begin
if(a[i,j]>=max)then begin
max:=a[i,j];
x:=i;y:=j;
end;
end;
writeln(max);
writeln(x,' ',y);
end.
5)
program gt;
var b:array[1..5,1..5]of integer;
a:array[1..5,1..5]of real;
n,i,j,max,min:integer;
begin
randomize;
for i:=1 to 3 do
for j:=1 to 4 do
b[i,j]:=random(10)+1;
max:=b[1,1];
min:=b[1,1];
for i:=1 to n do
for j:=1 to n do
begin
if(b[i,j]>max)then max:=b[i,j];
if(b[i,j]<min)then min:=b[i,j];
end;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
a[i,j]:=(2*b[i,j]+min)/max;
write(a[i,j]:3:3,' ');
end;
writeln;
end;
end.
6)
program gt;
var b:array[1..5,1..5]of integer;
i,j,l,r,q:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 4 do
b[i,j]:=random(10)+1;
for i:=1 to 5 do
begin
for j:=1 to 4 do
begin
for q:=1 to 3 do
begin
r:=b[i,q];
l:=b[i,q+1];
if(b[i,q]>b[i,q+1])then begin
b[i,q]:=l;
b[i,q+1]:=r;
end;
end;
end;
end;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
write(b[i,j]:3,' ');
end;
writeln;
end;
end.
Я не представляю даже как можно Вас благодарить!!!!!!! СПАСИБО ОГРОМНЕЙШЕЕ!!!