Отмечу большими буквами в слове что б понять как соединить 1) (залИвка) - команда для создания вона текста 2) (риСунок) - графический объект в текстовом документе 3) (стИль) - совокупность характеристик символа или абзаца 4) (сиМвол) - минимальная единица текстовой информации 5) (рамкА) - прямоугольник, обрамляющий абзац 6) (оглавлЕние) - перечень глав и пунктов документов 7) (маркеР) - что это за символы 8) (словарь) - набор, использиемые при проверке орфографии
// 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
1) (залИвка) - команда для создания вона текста
2) (риСунок) - графический объект в текстовом документе
3) (стИль) - совокупность характеристик символа или абзаца
4) (сиМвол) - минимальная единица текстовой информации
5) (рамкА) - прямоугольник, обрамляющий абзац
6) (оглавлЕние) - перечень глав и пунктов документов
7) (маркеР) - что это за символы
8) (словарь) - набор, использиемые при проверке орфографии