const n=6; var m,k,i: integer; var a: array[1..n] of integer; begin m:=integer.MinValue; writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(20); write (a[i]:3); if a[i]>m then begin m:=a[i]; k:=i; end; end; writeln; writeln ('Наибольший элемент массива: a[',k,'] = ',m); end.
const n=50; var sa: real; i,k: integer; var a: array[1..n] of integer; begin sa:=0; k:=0; writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(3); write (a[i]:2); sa:=sa+a[i]; end; sa:=sa/n; writeln; writeln ('Среднее арифметическое = ',sa); writeln; writeln ('Элементы массива, равные среднему арифметическому:'); for i:=1 to n do begin if a[i]=sa then begin writeln ('a[',i,'] = ',a[i]); k:=1; end; end; if k=0 then writeln ('Нет таких элементов'); end.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var V:=MatrRandom(7,7,-15,15);v.Println; var com:= V.Row(2).Aggregate(BigInteger(1),(x,y)->(x*y)); Writeln('Произведение эл-в 3ей строки = ', com); var cnt := 0; Foreach var x in V.Row(2) do if x > com then inc(cnt); Writeln('Количество элементов, больших чем это произведение = ', cnt); Writeln('Максимальный элемент 3го столбца = ', V.Col(2).Max); end.
Пример: 2 -4 -15 10 -1 2 6 15 -8 11 5 14 10 15 0 15 -10 13 -8 -13 14 14 6 13 -10 9 6 -12 -14 1 8 -9 1 -12 12 15 9 10 -7 -14 6 -3 9 9 -1 -14 1 1 3 Произведение эл-в 3ей строки = 0 Количество элементов, больших чем это произведение = 3 Максимальный элемент 3го столбца = 13
0.134295*10⁴ -нормальная форма
13.4295*10² -произвольная форма