08.06.2012, 20:30 | #1 (permalink) |
Member
Регистрация: 06.02.2012
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы. Паскаль
В линейном массиве целлых чисел 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 |
08.06.2012, 20:30 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Подскажу вам, что проблема может быть решена в похожих темах Массивы. Паскаль Массивы, Паскаль |
08.06.2012, 20:43 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
1. Плохо организован ввод - он "слепой", а потому неудобный. Лучше так: Код:
for: i:=1 to n do begin write('a[',i:2,']= '); readln(a[i]); end; Код:
for: i:=1 to n do writeln ( 'a[',i:2,']= ',a[i]); Код:
writeln; 4. Да, еще одно. В качестве предпоследней строки перед "end." поставьте readln; - это нужно, чтобы остановить выполнение программы и поиметь возможность рассмотреть результат. |
|
08.06.2012, 21:54 | #4 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|