Question

Выдает ошибку: pas(19) : Встречено '.', а ожидалось ';', helpp.


Program Boon;
uses crt;
var k: integer;
i: integer;
c: ARRAY[1..100] of real;
function ODD:integer;
Begin;
writeln('Массив имеет вид');
for i:=1 to 15 do
Begin;
c[i]:=random(150)/(random(51-1));
writeln(c[i]:5:2);
End;
k:=0;
for i:=1 to 15 do
if Odd(c[i]) and c[i]>0 then
k:=k+1;
writeln('Количество непарных отрицательных чисел',k);
End.

Answer 1

Тут есть несколько ошибок:
1. Отсутствует ключевое слово begin в основной программе. Насколько я понял, оно должно стоять перед k:=0.

2. Внутри функции ODD не объявлена локальная переменная i, которая используется в цикле.

3. В основной программе вы вызываете функцию ODD и передаете ей аргумент с[i], хотя в описании функции аргумент не обозначен.

4. В функции ODD происходит обработка глобального массива C, что делать нельзя.

5. Функция должна возвращать какое-то значение. В описании вы указали integer, а в основной программе в строке if Odd(c[i])... вы подразумеваете, что оно должно быть булевым, т.е. или True или False.

Исправьте, и может быть (если ошибок больше нет) программа заработает.