Помогите пожалуйста. Буду очень благодарен. Заранее спасибо.

Question

Помогите пожалуйста. Буду очень благодарен. Заранее спасибо.

---

Answer 1

Держи:

var
  E: array [1..17] of real;
  s: integer;


begin
 
  for s := 1 to 17 do
  begin
    writeln('Введите число');read(E[s]);
  end;
 
  for s := 1 to 12 do
 
      writeln(E[s]);
 
 
end.

Comments

спасибо