Цитата:
Сообщение от Натуличка
я не понимаю как сделать вывод и думаю, что должна вводить еще обозначения кроме I и n
|
С Вашего разрешения, транслировать/запускать не буду, попробуем сначала умозрительно.
1. Плохо организован ввод - он "слепой", а потому неудобный. Лучше так:
Код:
for: i:=1 to n do
begin
write('a[',i:2,']= ');
readln(a[i]);
end;
2. А с выводом - и вовсе плохо. Вы просто n раз выводите
надпись "a[i]=", а сам массив не выводите вовсе! Надо так:
Код:
for: i:=1 to n do
writeln ( 'a[',i:2,']= ',a[i]);
3. Еще советую куда-нибудь между циклами ввода и вывода воткнуть оператор
- прямо так, без параметров. Тогда образуется отступ в виде пустой строки. Так красивее.
4. Да, еще одно. В качестве предпоследней строки перед "end." поставьте readln; - это нужно, чтобы остановить выполнение программы и поиметь возможность рассмотреть результат.