Const N = 20; Var A:array[1..N] of real; i:integer; S:real; Begin Randomize; S:=0; Write('Исходный массив A(',N,'):'); For i:= 1 to N do Begin A[i]:=random*(N*2+1)-N; Write(' ',A[i]:0:3); S:=S+A[i]; End; WriteLn; WriteLn('S = ',S); End.
const n = 4; //кол-во людей g = 1995;//год m = 5; //номер месяца var i,gR,mR,k : integer; begin k := 0; for i := 1 to n do begin writeln ('Введите год и месяц'); read (gR,mr); if (gR = g) and (mr = m) then k := k +1; end;