Технический форум - Массивы. Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Массивы. Паскаль (http://www.tehnari.ru/f41/t74688/)

Массивы. Паскаль

проверьте пожалуйта задачу.
В линейном массиве целлых чисел b(n) заменить все элементы кратные 5, на их удвоенное значение.
program zadacha
var B: array [1..30] of integer;
i, n of integer;
begin
writeln ('ввод колличество элементов массива');
readln (n);
for: i:=1 to n do
readln (a [i]);
for: i:=1 to n do
if a [i] mod 5 <>0 then
a [i]:=a [i]*2;
for: i:=1 to n do
writeln ( 'a [i]=');
end.
я не понимаю как сделать вывод и думаю, что должна вводить еще обозначения кроме I и n

Цитата:

Сообщение от Натуличка (Сообщение 745919)

я не понимаю как сделать вывод и думаю, что должна вводить еще обозначения кроме 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. Еще советую куда-нибудь между циклами ввода и вывода воткнуть оператор

Код:

writeln;

- прямо так, без параметров. Тогда образуется отступ в виде пустой строки. Так красивее.
4. Да, еще одно. В качестве предпоследней строки перед "end." поставьте readln; - это нужно, чтобы остановить выполнение программы и поиметь возможность рассмотреть результат.

что касается ввод, так нам рекомендует сам преподаватель. объясните, почему я должна записать write('a[',i:2,']= ')-???

Цитата:

Сообщение от Натуличка (Сообщение 745937)

объясните, почему я должна записать write('a[',i:2,']= ')-???

Элементарное удобство для пользователя. Он видит, что должен вводить.