Const N = 30; Var T:array[1..N] of integer; i,k:integer; Begin Write('Температура в течение месяца:'); k:=0; For i:= 1 to N do Begin T[i]:=random(20)-15; Write(' ',T[i]); if T[i] < 0 then k:=k+1; End; WriteLn; WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k); End.
Пример работы программы:
Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5 Количество дней, когда температура опускалась ниже нуля: 23
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.
a=9 b=5
Объяснение:
Написал такую программу на паскалет.к. на скрине именно синтаксис паскаля: