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

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

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

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

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

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



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

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

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

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