Question

Сформулировать массив из 4 элементов целого типа .ввести элемент в массивы  строчку через пробел. Вывести элемента массива в столбик.
Подсчитать количество отрицательных элементов в массиве , кратных 2.найти сумму всех нечётных элементов  в массиве
.язык паскаль абс нет ​

Answer 1

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.