Натуличка

проверьте пожалуйта задачу.
В линейном массиве целлых чисел 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

Vladimir_S

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

Натуличка

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

kreol

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