Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

вычислить количество положительных элементов массива А, если переменная Т имеет значение «истина»

То есть тут:

Код:

  if t then
    for i := 1 to n do
      if a [i] > 0 then
        p := p * a [i];

надо делать типо:

Код:

  if t then
    for i := 1 to n do
      if a [i] > 0 then
        inc(count);

где count целочисленная переменная, инициализированная нулем перед циклом