Question

Помогите пожалуйста прошу вас

Answer 1

program s2; var n,x,s,k,s2:integer; begin  write('Введите кол-во чисел: ');  readln(n);  writeln('Введите числа: ');  s := 0; s2 :=0; for k := 1 to n do  begin  write(k,': ');  readln(x);  if (x > 0) and (x mod 2 = 0) then  s := s + x;  elseif (x < 0) and (x mod 2 =0) then s2 := s2 + x end;  writeln('Cумма четных положительных = ',s);   writeln('Cумма четных отрицательных = ',s2);  readln end.

Answer 2

точно не уверен, но по идее должно работать, проверить не могу компилятора под рукой нет

Answer 3

скачай Pasckal запусти и проверь

Answer 4

ок

Answer 5

а что такое pх mod

Answer 6

х*