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. Числительные в русском языке классифицируются по составу и по значению. По составу они делятся на простые, сложные и составные. Пример простых числительных: четыре, пять. Пример сложных числительных: шестьдесят, пятьсот. Пример составных числительных: тридцать пять, сто пятьдесят четыре. По значению числительные делятся на порядковые и количественные. Пример порядковых числительных: второй, девятый. Пример количественных числительных: шесть, два. Представить информацию о классификации в русском языке в виде графа. Является ли полученный граф деревом?
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. Числительные в русском языке классифицируются по составу и по значению. По составу они делятся на простые, сложные и составные. Пример простых числительных: четыре, пять. Пример сложных числительных: шестьдесят, пятьсот. Пример составных числительных: тридцать пять, сто пятьдесят четыре. По значению числительные делятся на порядковые и количественные. Пример порядковых числительных: второй, девятый. Пример количественных числительных: шесть, два.
Представить информацию о классификации в русском языке в виде графа. Является ли полученный граф деревом?