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

[jesus]

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

Сообщение отредактировано: jesus - 21.10.2004 17: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.