Пример правильной эффективной программы на Pascal и Basic const N = 30; var a:array[1..N] of integer; Max, Num, i: integer; begin Max := a[1]; Num := 1; for i := 2 to N do if a[i] > Max then begin Max := a[i]; Num := 1 end else if a[i] = Max then Num
{}