// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var n:=ReadInteger('n='); if n<0 then Writeln(n,'! не определено: n<0') else if n=0 then Writeln('0!=1') else begin var p:BigInteger:=1; for var i:=2 to n do p*=i; Writeln(n,'!=',p) end end.
var a: array[1..n] of integer; i, k, p, max: integer;
begin Randomize; Write('Введите число К: '); Readln(k); Write('Элементы массива: '); p := 0; for i := 1 to n do begin a[i] := Random(101)-50; Write(a[i]:5); if a[i] > k then p := p + 1; end; Writeln(#13#10, 'Количество элементов, больших ', k, '=', p); max := -32768; for i := 1 to n do begin a[i] := 3 * a[i]; if max < a[i] then max := a[i] end; if max > 0 then Writeln('Максимальный элемент массива равен ', max) else Writeln('В массиве нет положительных элементов') end.
Тестовое решение: Введите число К: 25 Элементы массива: -10 43 -6 8 -4 39 26 -30 -33 -10 -34 -4 Количество элементов, больших 25=3 Максимальный элемент массива равен 129
