Var A: Array of Integer; N: Integer; i: Integer; sum: Integer; Begin Randomize; Write('N = '); ReadLn(N); SetLength(A, N + 1); WriteLn('Массив:'); For i := 1 To N Do Begin A[i] := Random(50) - 25; Write(A[i] + ' '); End; WriteLn; WriteLn('Без отрицательных:'); For i := 1 To N Do Begin If A[i] >= 0 Then Write(A[i] + ' '); End; sum := 0; WriteLn; WriteLn('Среднее арифметическое:'); For i := 1 To N Do Begin sum := sum + A[i]; End; WriteLn(sum / N); End.
Классификации в русском языке (задание 2). 2. Числительные в русском языке классифицируются по составу и по значению. По составу они делятся на простые, сложные и составные. Пример простых числительных: четыре, пять. Пример сложных числительных: шестьдесят, пятьсот. Пример составных числительных: тридцать пять, сто пятьдесят четыре. По значению числительные делятся на порядковые и количественные. Пример порядковых числительных: второй, девятый. Пример количественных числительных: шесть, два. Представить информацию о классификации в русском языке в виде графа. Является ли полученный граф деревом?
13.72 15.4 -2.6 0 11.2 15
-6.123 0.002 18 7.6
4.17 126 -12 0 7.4 11
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
ReadAllText('MyFile.txt').ToReals.OrderByDescending(t->t).Println
end.
Результат
126 18 15.4 15 13.72 11.2 11 7.6 7.4 4.17 0.002 0 0 -2.6 -6.123 -12