program massiv;
var
a:array[1..10] of integer;
i,b,c : integer;
begin
writeln ('posledovatelno vedity elementi massiva (10 chisel)');
for i:=1 to 10 do
readln(a[i]);
b:=a[1];
for i:=1 to 10 do
begin
if a[i]>b then
b:=a[i];
end;
c:=a[1];
for i:=1 to 10 do
begin
if a[i]<c then
c:=a[i];
end;
writeln('raznost mesdu naibolshim i naimenshim elementom massiva =',b-c);
readln;
end.
p.s если нужны пояснения то в личку
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do begin
var row:=a.Row(i);
var imin:=row.IndexMin;
Swap(row[imin],row[row.High]);
a.SetRow(i,row)
end;
Writeln('*** Полученный массив ***'); a.Println(4)
end.
1)
s := 0;
for i := 1 to k do
begin
if i mod 2 <> 0 then
s:= s + i;
end;
2)
for i := 5 to 55 do
begin
if i mod 2 <> 0 then
writeln(i);
end;
3)
s := 1;
for i := n to m do
begin
s:= s * i;
end;
4)
s := 0;
for i := 10 to 15 do
begin
s:= s + i;
end;
обрамления там везде одинаковые
Поворот направо, шаг, поворот налево, поворот налево, шаг, поворот направо (1 линия)
Прыжок, поворот направо, шаг, шаг, поворот налево, поворот налево, шаг, шаг, поворот направо (2 линия)
Прыжок, поворот направо, шаг, шаг, шаг, поворот налево, поворот налево, шаг, шаг, шаг, поворот направо (3 линия)
Прыжок, поворот направо, шаг, шаг, шаг, поворот налево, поворот налево, шаг, шаг, шаг, поворот направо (4 линия)
Прыжок, поворот направо, шаг, шаг, поворот налево, поворот налево, шаг, шаг, поворот направо (5 линия)
Прыжок, поворот направо, шаг, поворот налево, поворот налево, шаг, поворот направо (6 линия)