PASCAL.Срочно помогите

Question

PASCAL.Срочно помогите

---

---

---

---

Comments

А что нужно сделать?

---

Составить программу, которая заданныечисла вводит в массив, утраивает каждоечисло, а затем выводит эти числа.Обратите внимание, числа не ограничены,то есть любые!

---

Требование "8 латинских букв в имени" очень странно. Вы в MS DOS работаете?

Answer 1

Var a:array[1..50] of real;
n,i:integer;
begin
write('Количество чисел = ');
readln(n);
for i:=1 to n do begin
 write('a[',i,'] = ');
 readln(a[i]);
 end;
for i:=1 to n do
 a[i]:=a[i]*3;
writeln('Массив A:');
for i:=1 to n do write(a[i]:4:2,' ');
writeln;
end.

Пример:
Количество чисел = 5
a[1] = 7.1
a[2] = 5.4
a[3] = 8.0
a[4] = 9.5
a[5] = 7.3
Массив A:
21.30 16.20 24.00 28.50 21.90 

Comments

что нужно написать чтобы после ввода a[5] = 7.3, программа сразу не закрывалась, а показывала результат

---

Можно перед end. написать readln;

---

Спасибо