Во время чтения человек сосредоточен только на чтении а во время слушания музыки он отвлекается и это всё мешает
Равиль_Евгеньевич1808
11.03.2022
Const N = 3; Var A:array[1..N,1..N] of integer; i,j:integer; Min,S:real; Begin Randomize; WriteLn('Исходная матрица:'); For i:= 1 to N do Begin For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' ') End; WriteLn End; WriteLn; Min:=0; For i:= 1 to N do Min:=Min+Abs(A[i,1]); For j:= 2 to N do Begin S:=0; For i:= 1 to N do S:=S+Abs(A[i,j]); if S<Min then Min:=S; End; WriteLn('Min = ',Min); End.
Пример работы программы:
Исходная матрица: 8 3 0 1 3 -5 3 -10 -6
Min = 11
most315
11.03.2022
Uses Crt; Const N = 20; Var MX:array[1..N] of integer; i,k:integer; Begin ClrScr; Randomize; k:=0; Write('Исходный массив:'); For i:=1 to N do Begin MX[i]:=random(10); Write(' ',MX[i]); if MX[i] mod 2 <> 0 then k:=k+1; End; WriteLn; WriteLn('Количество нечётных элементов: ',k); Write('Преобразованный массив:'); For i:= 1 to N do Begin MX[i]:=MX[i]-k; Write(' ',MX[i]) End; ReadLn End.
uses Crt; Const N = 13; Var A:array[1..N] of integer; i,Max,Min:integer; Begin ClrScr; Randomize; Min:=1; Max:=1; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(44)+17; Write(' ',A[i]); if A[Min]>A[i] then Min:=i; if A[Max]<A[i] then Max:=i; End; WriteLn; WriteLn('Max = ',A[Max]); WriteLn('Min = ',A[Min]); WriteLn('Max - Min = ',A[Max]-A[Min]); ReadLn End.
Const N = 13; Var MM:array[1..N] of byte; B:byte; i,Max:integer; Begin Randomize; Max:=1; Write('Исходный массив:'); For i:= 1 to N do Begin MM[i]:=random(90)+10; Write(' ',MM[i]); if MM[i]>MM[Max] then Max:=i; End; WriteLn; WriteLn('Max(MM) = MM[',Max,'] = ',MM[Max]); Write('Новый массив:'); B:=MM[1]; MM[1]:=MM[Max]; MM[Max]:=B; For i:= 1 to N do Write(' ',MM[i]) End.