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

Question

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

Comments

Рандомно учительница мне дала.. менять она конечно не будет, я скажу ей о не ястности данного задания

---

вы удивительно правы

---

var a:=Range(-40,30); a.Where(x->x<0).Select(x->(x*(-1))/7).Print();

---

Так наверное?

Answer 1

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

Comments

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

Answer 2

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

Comments

есть косяки

---

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

---

a := a div 7;