Непозиционные - где цифра всегда означает одно число(римская) Позиционные - где цифра означает разные числа на разных позициях Фиббоначиева, Факториальная, (Десятичная) Традиционные - Позиционные СС, в которых базис является неотрицательной монотонной возрастающей последовательностью, которая образует геометрическую прогрессию(Десятичная, двоичная) название означает основание этой прогресси
на заметку , базис - возрастающая неотрицательная последовательность, начинающаяся с 1, которая задаёт веса разрядов в числе
Var a: array[1..5,1..5] of integer; i,j,p,s: integer; begin Writeln('Введите элементы матрицы: '); for i:= 1 to 5 do for J:=1 to 5 do read(a[i,j]); for i:= 1 to 5 do begin for j:= 1 to 5 do write(A[i,j], ' ' ) ; writeln(); end; p:= 1; s:= 0; for i:= 1 to 5 do for J:=1 to 5 do if a[i,j] > 0 then begin s:= s+1; p:= p*a[i,j]; end; Writeln('Количество положительных элементов = ', s); Writeln('Произведение положительных элементов = ', p); end.
begin
var a := ArrRandomInteger(7); a.Println;
WriteLn('Среднее арифметическое: ', a.Average);
end.