Question

сформировать одномерный массив из n элементов найти сумму тех элементов массива которые одновременно имеют четные и положительные значения.элементы вводятся с клавиатуры. Написать программу в pascale!!! Сделать в масиве

Answer 1

Код программы:

const n = 10;

var a:array[0..n] of integer;

i, sum:integer;

begin

 writeln('Введите массив: ');

 for i:= 0 to n do begin

   write('Введите ',i,' элемент: ');

   readln(a[i]);

   end;

   sum:=0;

   for i:= 0 to n do begin

   if (a[i] mod 2 = 0) and (a[i] >0) then

     sum := sum + a[i];

   end;

   writeln('Сумма = ',sum);

end.