Составьте программу Паскаль ( даю 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.