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

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.