Одномерный массив заполнен случайным образом. Найти количество четных элементов. Одномерный массив размерностью N , где N – нечетное число, заполн

1.Одномерный массив заполнен случайным образом. Найти количество четных элементов. 2. Одномерный массив размерностью N , где N -нечетное число, заполнен случайными числами от -15 до 6. Все , числа кратные 3 заменить на противоположные.

  • 1 ЗАДАЧА:
    var
        count,i: integer;
        A: array [1..30] of integer;
    begin
    for i:=1 to 30 do
    begin
        A[i]:= -100 + random(206);
        writeln('A[',i,'] = ', A[i]);
    end;

    for i:=1 to 30 do
        if(A[i] mod 2 = 0) then inc(count);

    Writeln;Writeln;
    Writeln('Кол-во четных элементов: ', count);
    end.

    2 ЗАДАЧА:
    const
        N = 30;
    var
        count,i: integer;
        A: array [1..N] of integer;
    begin
    for i:=1 to N do
    begin
        A[i]:= -15 + random(22);
        writeln('A[',i,'] = ', A[i]);
    end;

    for i:=1 to 30 do
        if(A[i] mod 3 = 0) then A[i]:=-A[i];

    Writeln;Writeln;
    for i:=1 to N do
        writeln('A[',i,'] = ', A[i]);
    end.


See also: