Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 . вывести на экран, посчитать количество нечетных чисел

Const n = 20; var i,k: integer; m: array [1..n] of integer; begin        randomize;           for i: =1 to n do begin        m[i]: =random(101) - 50;         writeln(m[i]);         end;         for i: =1 to n do          if m[i] mod 2 < > 0 then                  inc(k);         writeln('kol-vo netchetnih = ',k);           readln; end.

ответ:

1)3 т.к. а=10

это не меньше пяти и значит из а надо вычесть 7

2)

a : = 10

//а стало равной 10

если a > 5

//10> 5

то a : = a + 12

//значит выполняем это(к а прибавим 12 и получим 22

иначе a : = a - 7

//это игнорим

все

если a > 5

//22> 5

то a : = a + 12

//выполним этот кусок: к а прибавим 12, значит а равно 34

иначе a : = a - 7

все

ответ: 34

3)

a : = 10; b : = 5

//а равно 10, б пяти

если a > 5 и a < b

//а больше 5, но а не меньше чем б, значит ничего не изменяем

то a : = a - 5

все

а осталась прежней, 10

// программа выводит по 10 раз имя и фамилию тремя разными циклами for while

// repeat until

 

program loopname;

uses crt;

var name,s_name: string;

        i: integer;

begin

    clrscr;

    write('введите имя: ');

    readln(name);

    write('введите фамилию: ');

    readln(s_name);

    writeln('цикл for');

 

    for i: =1 to 10 do writeln(name,'   ',s_name );

 

    writeln;

  writeln('цикл while');  

    i: =1;

    while (i< =10) do

      begin  

          writeln(name,'   ',s_name );

            i: =i+1;

        end;  

 

    writeln;  

    writeln('цикл repeat until');

         

    i: =0;  

    repeat

          writeln(name,'   ',s_name );

            i: =i+1;

      until(i=10);  

    readkey;  

  end.