Question

Написать программу, которая из последовательности чисел от -40 до 30 выбирает те, которые отрицательные, меняет их знак и делит на 7.
Построить блок-схему и написать программу, помогите пожалуйста.

Answer 1

begin
  var a := Range(-40, 30);
  a.Println();
  writeln('========================');
  a.Where(x -> x < 0).Select(x -> (- x) / 7).Print();
end.

Answer 2

x * (-1) - проще написать -х

Answer 3

Большое спасибо за помощь

Answer 4

Program;
var a,i:integer;
Begin
for i:=-40 to 30 do
read(a);
begin
if (a<0) then
a:=a*(-1);
a:=a/7;
end;
write(a);
End.

Answer 5

есть косяки

Answer 6

for i := -40 to 30 do
writeln(i);

Answer 7

a := a div 7;