Создайте блок-схему к программе program lab_2-1; uses crt; label m1, m2; var n : integer; x, y : real; p: byte; begin clrscr; riteln(‘программа вычисления функции…’); writeln(‘++’); writeln(‘| 1. ввод данных |’); writeln(‘| 2. вычисление функции и вывод результатов |’); writeln(‘| 3. завершение работы программы |’); writeln(‘++’); p: =0; m1: riteln(‘введите пункт меню’); readln(n); { ввод номера пункта меню} case n of 1: begin { ввод данных } m2: write(‘введите значение аргумента x=’); readln(x) if x=0 then begin riteln(‘x не может быть равным 0 по условию’) ; goto m2; end; p: =1; end; 2: begin if p< > 0 then writeln (‘данные не введены, выполните пункт n1’); else begin if x> 0 then y: =1/x else y: =x*x; writeln(‘при х=’, x: 7: 2, ‘ y=’, y: 7: 2) end; end; 3: exit end; goto m1; end.

1) Функциональные клавиши F1-F12 предназначены для выполнения ряда команд при работе с некоторыми программами.

2) Символьные (алфавитно-цифровые) клавиши используются для ввода информации в компьютер.

3) Клавиши управления курсором перемещают курсор в начало строки, в конец строки, на страницу вверх и на страницу вниз.  

4) Дополнительные клавиши, расположенные с правой стороны клавиатуры, могут работать в двух режимах, переключаемых клавишей NumLock:

- при включённом индикаторе NumLock это удобная клавишная панель с цифрами и знаками арифметических операций, расположенными, как на калькуляторе;

- если индикатор NumLock выключен, то работает режим управления курсором.

5) Специальные клавиши (Enter, Esc, Shift, Delete, Backspace, Insert и др.) — это клавиши для специальных действий;

   Клавиша Enter завершает ввод команды и вызывает её выполнение. При наборе текста служит для завершения ввода абзаца.

   Клавиша Esc, расположенная в левом верхнем углу клавиатуры, обычно служит для отказа от только что выполненного действия.

Объяснение:

//PascalABC.NET 3.1 сборка 1239
const
    n = 10;
    m = 10;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;
    f: boolean;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        f := false;
        for j := 1 to m do
        begin
            if not f and (a[i, j] mod 2 = 1) then begin
                a[i, j] := 2 * a[i, j];
                f := true;
            end;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.