IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Массивы на паскале, Создать массив и посчитать....
jesus
сообщение 21.10.2004 17:00
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Дан массив A(m), m<=15. Заменить нулём каждый третий символ массива и вычислить сумму Ы оставшихся элементов. Вывести на печать исходный массив, переформированный в велиину S. Копия того что написано в задании.

Сообщение отредактировано: jesus - 21.10.2004 17:02
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 21.10.2004 17:13
Сообщение #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
сообщение 21.10.2004 17:20
Сообщение #3


Гость






Ты конечно извини , мне всё на блюдичке неси. Но не мог бы ты писать со слов uses crt.....
 К началу страницы 
+ Ответить 
APAL
сообщение 21.10.2004 17:22
Сообщение #4


Смотрю...
*****

Группа: Модераторы
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Тогда забыто еще:
Program ....;

Jesus - не вредничай, а если чего не знаешь - попробуй "подучить". smile.gif


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 21.10.2004 17:24
Сообщение #5


Гость






Если бы это было нужно для логики программы - я бы обязательно написал и

Код
Uses CRT;


Но в твоей программе это не нужно. Запусти ее и убедишься в этом. :yes:

Сообщение отредактировано: volvo - 21.10.2004 17:25
 К началу страницы 
+ Ответить 
Гость_jesus
сообщение 21.10.2004 17:25
Сообщение #6


Гость






Насчет Program я знаю(это мне не нужно),
А вот для цикла какого типа переменную создовать я не в курсе.
Ну тогда ты подскажи:
Для цикла, условного оператора, массива , насчет S я тоже знаю.
Спасибо за помошь , понимание , стойкость, трудолюбие. smile.gif
 К началу страницы 
+ Ответить 
volvo
сообщение 21.10.2004 17:27
Сообщение #7


Гость






Ничего больше создавать не нужно. Все уже создано.

Сообщение отредактировано: volvo - 21.10.2004 17:28
 К началу страницы 
+ Ответить 
Гость_jesus
сообщение 21.10.2004 17:27
Сообщение #8


Гость






Ой. Извините, я даже не взглянул на програму прежде чем критиковать. Она идеальна. Да, можете посмеятьс янадо мной lol.gif lol.gif lol.gif lol.gif а я huh.gif
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 28.07.2025 2:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"