Дан массив с15. найти произведение ненулевых элементов. язык паскаль

var

  c : array [1..15] of real;

  s : real;

  i : byte;

begin

  s : = 0;

  for i : = 1 to 15 do read (a[i]);

  for i : = 1 to 15 do

    if a[i] < > 0 then 

      s : = s * a[i];

  writeln (s);

end.

Скорее, тут не подходит ни одно определение, но если из этих, то 1

82741653
тут срачь из-за недостатка символов в ответе

1. Переменная цикла for должна иметь тип integer, char, byte -- Крч var x:ingeter или char.
2. По сути ошибки никакой нет, но может быть дело в том, что выводится первое значение i, а не второе. Тогда ошибка в том, что "write(i);" должно быть после "i:=i+2;"
3. Никаких ошибкок не вижу, программа работает и выводит значение "12345678910"
4. Тоже не вижу никаких ошибок программа выводит значение "123456789100"
5. Программа работает. Процесс таков, что к нашему аргументу x прибавляется по одному и так до бесконечности(или же пока x>0)
p.s. Мне кажется, ты забыл что-то уточнить, напиши если что не так.