max:=a[1];
for i:=2 to 10 do
begin
if a[i]>max then
max:=a[i];
c:=i;
end;
min:=a[1];
for i:=2 to 10 do
begin
if a[i]<min then
min:= a[i];
d:=i;
end;
a[c]:=x;
a[c]:=a[d];
a[d]:=x;
это кусочек программы в паскале для нахождения максимального элемента на скоко я помню
3) = С1 / А1
Объяснение:
Зная значение ячеек первой строки
А1 = 1 В1 = 3 С1 = 2 D1 = 4
вычислим по известным формулам значения ячеек во второй строке:
В2 = А1 + В1 = 1 + 3 = 4
С2 = D1 / С1 = 4 / 2 = 2
D2 = В1 + А1 = 3 + 1 = 4
На диаграмме мы видим 2 больших сектора, которые равны между собой, и 2 маленьких сектора, которые тоже равны между собой.
Так как В2 = D2 = 4 (т.е это большие сектора), то А2 = С2 = 2 (т.е это маленькие сектора)
Проверим какие формулы в результате равны 2
1) = А1 + 2 = 1 + 2 = 3 - эта формула не подходит
2) = D1 - А1 = 4 - 1 = 3 - эта формула не подходит
3) = С1 / А1 = 2 / 1 = 2 - эта формула подходит
4) = А1 + D1 = 1 + 4 = 5 - эта формула не подходит
type array100 = array [1..100] of integer;
var x,y:array100;
i,n,min,max:integer;
Begin
randomize;
n:=10;
for i:= 1 to n do begin
x[i]:=random(n*10)- 10*n div 2 ;
write(x[i]:4);
if i mod 10=0 then writeln;
end;
min:=1;
max:=1;
for i:= 1 to n do begin
if x[i]<x[min] then min:=i;
if x[i]>x[max] then max:=i;
end;
i:=x[min];
x[min]:=x[max];
x[max]:=i;
writeln;
for i:= 1 to n do begin
write(x[i]:4);
if i mod 10=0 then writeln;
end;
End.