Массивы на паскале, Создать массив и посчитать.... Опции

[jesus]

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

Сообщение отредактировано: jesus - 21.10.2004 21:02

[volvo]

Задание - скорее всего:
"Вывести на печать исходный массив, переформированный и величину 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]

Ты конечно извини , мне всё на блюдичке неси. Но не мог бы ты писать со слов uses crt.....

[APAL]

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

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

[volvo]

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

Код

Uses CRT;

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

Сообщение отредактировано: volvo - 21.10.2004 21:25

[Гость_jesus]

Насчет Program я знаю(это мне не нужно),
А вот для цикла какого типа переменную создовать я не в курсе.
Ну тогда ты подскажи:
Для цикла, условного оператора, массива , насчет S я тоже знаю.
Спасибо за помошь , понимание , стойкость, трудолюбие.

[volvo]

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

Сообщение отредактировано: volvo - 21.10.2004 21:28

[Гость_jesus]

Ой. Извините, я даже не взглянул на програму прежде чем критиковать. Она идеальна. Да, можете посмеятьс янадо мной а я