сформировать одномерный массив из n элементов найти сумму тех элементов массива которые одновременно имеют четные и положительные значения.элементы вводятся с клавиатуры. Написать программу в pascale!!! Сделать в масиве
More Questions From This User See All
Answers & Comments
Код программы:
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.