Вирішіть мені хто не спить завдання Останні два я сама вирішила) з першими 3 Я не встигаю, а завтра здавати Тільки при вирішенні

Вирішіть мені хто не спить завдання Останні два я сама вирішила) з першими 3 Я не встигаю, а завтра здавати Тільки при вирішенні

  • Я накидав тільки цикли, програму оформите самі ...
    перше завдання
    ----------------------------------------
    for i: = 1 to N do
    WriteLn (i =, i);
    -----------------------------------------
    Таблиця множення:

    -------------------------------------
    for i: = 1 to N
    begin
    for j: = 1 to N
    Write (i, *, j, =, i * j: 4);
    WriteLn;
    end;
    -------------------------------------------

    І, нарешті, напишемо програму, яка шукає максимальний елемент. Це ми зробимо відразу при введенні

    var i, N, a, Max, MaxInd: integer;

    begin
    Write (Ведіть а =); ReadLn (a);
    Max: = a; MaxInd: = 1;
    for i: = 2 to N do
    begin
    Write (Введіть елемент); ReadLn (a);
    if a> Max then begin
    Max: = a;
    MaxInd: = i;
    end;
    end;
    WriteLn (MaxInd =, MaxInd);
    ReadLn;
    end.

  • Var i: integer;
    begin;
    read (i);
    writeln (1 x, i, =, i);
    writeln (2 x, i, =, 2 * i);
    writeln (3 x, i, =, 3 * i);
    writeln (4 x, i, =, 4 * i);
    writeln (5 x, i, =, 5 * i);
    writeln (6 x, i, =, 6 * i);
    writeln (7 x, i, =, 7 * i);
    writeln (8 x, i, =, 8 * i);
    writeln (9 x, i, =, 9 * i);
    end.