Составьте программу Паскаль ( даю 66 баллов)
1) Дан массив 10 целых чисел. Найти количество нечётных чисел.
2) Дан массив из 20 целых чисел. Все отрицательные элементы массива заменить на 0 и вывести полученный массив на экран.

Ответ:

var

  i, n: integer;                             // объявляем переменные целочисленного типа.

  arr: array [1..10] of integer;      // объявляем массив, размерностью 10.

  s : string;                                // объявление переменной строкового типа.

begin

  for i := 1 to 10 do            // начало цикла.

    begin

      arr[i] := random(0, 20);        // заполняем элемент массива числом из диапазона 0; 20.

      s := s + inttostr (arr[i])+ ' ';                   // записываем массив в одну строку.

      if (arr[i] mod 2 <> 0) then n := n + 1;    // считаем количество нечетных элементов.

    end;

 writeln ('Исходный массив: ', s);   // вывод исходного массива на экран.

 writeln('Количество нечетных элементов в массиве равно: ', n); // вывод строки на экран.

end.