Const N = 3; M = 4; Var A:array[1..N,1..M] of integer; i,j,iMin,jMin:integer; Begin Randomize; iMin:=1; jMin:=1; WriteLn('Исходный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random(76)-30; if A[i,j] < A[iMin,jMin] then Begin iMin:=i; jMin:=j End; Write(A[i,j]:3,' ') End; WriteLn; End; WriteLn('Min = A[',iMin,',',jMin,'] = ',A[iMin,jMin]); End.
N = 3;
M = 4;
Var
A:array[1..N,1..M] of integer;
i,j,iMin,jMin:integer;
Begin
Randomize;
iMin:=1;
jMin:=1;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(76)-30;
if A[i,j] < A[iMin,jMin] then
Begin
iMin:=i;
jMin:=j
End;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
WriteLn('Min = A[',iMin,',',jMin,'] = ',A[iMin,jMin]);
End.
Исходный массив:
-11 -3 -16 44
-1 -10 38 -20
33 -22 17 10
Min = A[3,2] = -22
1. по векторам:
использовать чертежник
алг
нач
сместиться на вектор (1.75,0)
опустить перо
сместиться на вектор (0.5,0)
сместиться на вектор (0,0.5)
сместиться на вектор (1,0)
сместиться на вектор (-1, 1)
сместиться на вектор (0.75,0)
сместиться на вектор (-1,1)
сместиться на вектор (-1,-1)
сместиться на вектор (0.75,0)
сместиться на вектор (-1,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,-0.5)
поднять перо
сместиться в точку (0,0)
кон
2. по точкам:
использовать чертежник
алг
нач
сместиться в точку (1.75,0)
опустить перо
сместиться в точку (2.25,0)
сместиться в точку (2.25,0.5)
сместиться в точку (3.25,0.5)
сместиться в точку (2.25, 1.5)
сместиться в точку (3,1.5)
сместиться в точку (2,2.5)
сместиться в точку (1,1.5)
сместиться в точку (1.75,1.5)
сместиться в точку (0.75,0.5)
сместиться в точку (1.75,0.5)
сместиться в точку (1.75,0)
поднять перо
сместиться в точку (0,0)
кон