Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

1)дан массив из N элементов. определить сумму тех, которые четны и положительны.
2)Дан массив из n элементов. В нем четные числа заменить на 0, нечетные на -1, вывести на экран монитора содержимое массива до обработки и после обработки.

Ответ оставил Гость

Program N;
Var a,n,i,s: integer; 
BeginWriteln(n=);Readln(n);
s:=0; 
For i:=1 to n doBegina[i]:=random(100);
write(a:4);end;writeln;writeln(izmenenni massiv);for i:=1 to n do beginIf (a mod 2)=0 thena:=0elsea:=1;write(a:4);
end;
readln;
End.