Program pos; var n, a, b, c, s, d: integer; begin write('n = '); readln(n); if n < 1000 then begin a := n div 100; b := n mod 100 div 10; c := n mod 10; write('В числе '); if a = 0 then if b = 0 then begin d := 1; writeln('1 цифра'); end else begin d := 2; writeln('2 цифры'); end else begin d := 3; writeln('3 цифры'); end; s := a + b + c; writeln('Сумма цифр: ', s); if n mod 2 = 0 then writeln('Число чётное') else writeln('Число нечётное'); if d = 1 then writeln(c) else if d = 2 then writeln(c, b) else writeln(c, b, a); end else writeln('Число > 1000!'); end.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
procedure MyArray(n:integer;var a:array of integer); begin a:=ArrFill(n,0); // заполняем массив нулями Randomize; // инициализируем датчик случайных чисел // в случайный элемент заносим слчайное значение a[Random(0,n-1)]:=Random(1,99) end;
begin var n:=ReadInteger('n='); // читаем с клавиатуры размер массива var mas:array of integer; MyArray(n,mas); // вызываем процедуру mas.Println // выводим сформированный массив end.
ответ: г)