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.

Answer 2

Для начала создадим массив из 4 элементов целого типа в языке Паскаль:

var arr: array[1..4] of integer;

Теперь введем элементы в массив через пробел:

writeln('Введите 4 элемента массива через пробел:'); readln(arr[1], arr[2], arr[3], arr[4]);

Теперь выведем элементы массива в столбик:

writeln('Элементы массива:'); writeln(arr[1]); writeln(arr[2]); writeln(arr[3]); writeln(arr[4]);

Теперь подсчитаем количество отрицательных элементов в массиве, кратных 2:

var count: integer; i: integer; begin count := 0; for i := 1 to 4 do begin if (arr[i] < 0) and (arr[i] mod 2 = 0) then count := count + 1; end; writeln('Количество отрицательных элементов в массиве, кратных 2: ', count);

Теперь найдем сумму всех нечетных элементов в массиве:

var sum: integer; j: integer; begin sum := 0; for j := 1 to 4 do begin if arr[j] mod 2 <> 0 then sum := sum + arr[j]; end; writeln('Сумма всех нечетных элементов в массиве: ', sum); end.

Теперь у вас есть полный код для создания массива, ввода элементов, вывода и подсчета отрицательных элементов, кратных 2, а также подсчета суммы всех нечетных элементов в массиве в языке Паскаль.

Answer 3

var arr: array[1..4] of integer; i, countNeg2, sumOdd: integer; begin // Ввод элементов массива writeln('Введите 4 элемента массива:'); for i := 1 to 4 do read(arr[i]);

// Вывод элементов массива в столбик writeln('Элементы массива:'); for i := 1 to 4 do writeln(arr[i]);

// Подсчет количества отрицательных элементов в массиве, кратных 2 countNeg2 := 0; for i := 1 to 4 do begin if (arr[i] < 0) and (arr[i] mod 2 = 0) then countNeg2 := countNeg2 + 1; end; writeln('Количество отрицательных элементов в массиве, кратных 2: ', countNeg2);

// Подсчет суммы всех нечетных элементов в массиве sumOdd := 0; for i := 1 to 4 do begin if arr[i] mod 2 <> 0 then sumOdd := sumOdd + arr[i]; end; writeln('Сумма всех нечетных элементов в массиве: ', sumOdd); end.