Паскаль, задача приложена в изображении 5.55(б), помогите, пожалуйста.Оператор цикла с...

Question

Паскаль, задача приложена в изображении 5.55(б), помогите, пожалуйста.
Оператор цикла с параметром.

---

Comments

как срочно надо? )

---

до завтра)

---

Решение почти правильное вам дали, я поправил ошибки и выложил

---

Еще забыл указать :) на тесте вводите маленькие числа (от 1 до 10, например, чем меньше, тем лучше) и только целые. потому что произведение быстро нарастает, если введете большие числа программа вылетит с ошибкой переполнения

Answer 1

На всякий случай я ещё выложу правильное решение второй задачи( во вложении) либо код здесь:
const n=10;
var mas:array[1..n] of integer;
i,x:integer;
begin
  x:=1;
  for i:=1 to n do
    begin
      write('Input a[',i,']='); 
      readln(mas[i]); 
      x:=x*abs(mas[i]);
    end;
  writeln('the answer is:', x);readln;
end.

Вариант из первого решения предложенного вам не скомпилируется, потому что не объявлена константа n. Кроме того в нем нет вывода ответа и непонятно, что за числа надо вводить с клавиатуры (в моем примере оно спросит input a[1] = 

Comments

Премного благодарна, спасибо, что указали писать задачу методом пузырька, я до этого сама не додумалась)

Answer 2

1 задачка
var mas:array[1..n] of integer; i,x:integer;
begin
x:=0;
for i:=1 to n do
 begin
  readln(mas[i]);
  x:=x+abs(mas[i]);
 end;
end.

2 задачка

var mas:array[1..n] of integer; i,x:integer;
begin
x:=1;
for i:=1 to n do
 begin
  readln(mas[i]);
  x:=x*abs(mas[i]);
  end;
 end.