![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
jesus |
![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: ![]() ![]() ![]() |
Дан массив A(m), m<=15. Заменить нулём каждый третий символ массива и вычислить сумму Ы оставшихся элементов. Вывести на печать исходный массив, переформированный в велиину S. Копия того что написано в задании.
Сообщение отредактировано: jesus - 21.10.2004 17:02 |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Задание - скорее всего:
"Вывести на печать исходный массив, переформированный и величину S"
const
n = 15;
a: array[1 .. n] of integer =
(1, 4, 5, 3, 6, 5, 2, 9, 7, 4, 3, 7, 9, 13, 23);
var
s, i: integer;
begin
s := 0;
writeln('Исходный массив:')
for i := 1 to n do
write(a[i]:4);
writeln;
for i := 1 to n do
if i mod 3 = 0 then
a[i] := 0
else inc(s, a[i]);
writeln('Переформированный массив:')
for i := 1 to n do
write(a[i]:4);
writeln;
writeln( 's = ', s );
end.
|
Гость_jesus |
![]()
Сообщение
#3
|
Гость ![]() |
Ты конечно извини , мне всё на блюдичке неси. Но не мог бы ты писать со слов uses crt.....
|
APAL |
![]()
Сообщение
#4
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
Тогда забыто еще:
Program ....; Jesus - не вредничай, а если чего не знаешь - попробуй "подучить". ![]() -------------------- |
volvo |
![]()
Сообщение
#5
|
Гость ![]() |
Если бы это было нужно для логики программы - я бы обязательно написал и
Код Uses CRT; Но в твоей программе это не нужно. Запусти ее и убедишься в этом. :yes: Сообщение отредактировано: volvo - 21.10.2004 17:25 |
Гость_jesus |
![]()
Сообщение
#6
|
Гость ![]() |
Насчет Program я знаю(это мне не нужно),
А вот для цикла какого типа переменную создовать я не в курсе. Ну тогда ты подскажи: Для цикла, условного оператора, массива , насчет S я тоже знаю. Спасибо за помошь , понимание , стойкость, трудолюбие. ![]() |
volvo |
![]()
Сообщение
#7
|
Гость ![]() |
Ничего больше создавать не нужно. Все уже создано.
Сообщение отредактировано: volvo - 21.10.2004 17:28 |
Гость_jesus |
![]()
Сообщение
#8
|
Гость ![]() |
Ой. Извините, я даже не взглянул на програму прежде чем критиковать. Она идеальна. Да, можете посмеятьс янадо мной
![]() ![]() ![]() ![]() ![]() |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 2:27 |