Var a: array [1 .. 10] of integer; i, Count, C, tmpLast, tmpFirst: integer; begin write('Введите число C: '); readln(C); writeln; for i := 1 to 10 do begin write('a[', i, '] = '); readln(a[i]); if a[i] = C then begin Count := Count + 1; tmpLast := i; end; end; writeln; if (Count = 0) then writeln('В массиве нет числа равное С') else begin writeln('В массиве нашлось число, равное С'); if (Count = 1) then writeln('Первое и единственное число в позиции a[', tmpLast, ']') else begin i := 0; repeat i := i + 1; tmpFirst := i; until (a[i] = C); writeln('Первое такое число a[', tmpFirst, ']'); writeln('Последнее такое число a[', tmpLast, ']'); end; end; readln; end.
Классификации в русском языке (задание 2). 2. Числительные в русском языке классифицируются по составу и по значению. По составу они делятся на простые, сложные и составные. Пример простых числительных: четыре, пять. Пример сложных числительных: шестьдесят, пятьсот. Пример составных числительных: тридцать пять, сто пятьдесят четыре. По значению числительные делятся на порядковые и количественные. Пример порядковых числительных: второй, девятый. Пример количественных числительных: шесть, два. Представить информацию о классификации в русском языке в виде графа. Является ли полученный граф деревом?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
Пример
n= 10
1 0 0 0 0 0 0 0 0 1