Сформулировать массив из 4 элементов целого типа .ввести элемент в массивы строчку через пробел. Вывести элемента массива в столбик.
Подсчитать количество отрицательных элементов в массиве , кратных 2.найти сумму всех нечётных элементов в массиве
.язык паскаль абс нет
Ответы
program saharcukroman;
const n = 4;
type mas = array [1..n] of integer;
var a: mas;
i, k, summa: integer;
begin
write('Сформировать массив из 4 элементов целого типа. Вывести элементы массива в строчку через пробел. Вывести элемента массива в столбик.');
writeln('Подсчитать количество отрицательных элементов в массиве, кратных 2. Найти сумму всех нечётных элементов в массиве.');
randomize;
summa := 0;
k := 0;
writeln('Массив, записанный в строчку:');
for i := 1 to n do
begin
a[i] := random(21) - 5;
write(a[i], ' ');
if ((a[i] < 0) and (a[i] mod 2 = 0)) then k := k + 1;
if (a[i] mod 2 = 1) then summa := summa + a[i];
end;
writeln;
writeln('Массив, записанный в столбик:');
for i := 1 to n do
writeln(a[i]);
writeln('Количество отрицательных элементов в массиве, кратных 2 равно ', k);
writeln;
writeln('Сумма всех нечётных элементов в массиве равна ', summa);
readln;
end.