Question

Нет индексного свойства по умолчанию для типа byte

program bankai;
Uses crt; {Подключение стандартного модуля TP}
Var Mas: Array[1..10] of integer; {Описание массива вещественных чисел}
S:real; {описание переменной для хранения суммы}
i,N:byte;
begin
Clrscr; {Очистка экрана}
Write(' Введите число элементов в массиве К ='); Readln(N);
Writeln(' Введите ',N,' вещественных чисел через пробел');
For i:=1 to N do read(N[i]); { Ввод чисел}
writeln;
S:=0.0; { Присвоение начального значения суммы}
For i:=1 to K do
If M[i]>0 then S:=S+M[i]; { Суммирование положительных чисел}
Writeln(' S = ',S); { Вывод полученной суммы}
End.

Answer 1

Ответ:

1. Если уж массив ВЕЩЕСТВЕННЫХ чисел, то не integer, a real

(Var Mas: Array[1..10] of real)

2. Переменные считываются по Enter а не по пробелу

(Writeln(' Введите ',N,' вещественных чисел через Enter');

Посмотрел дальше, это вообще жесть. Весь код надо полностью переписывать. Задачу лучше напиши что: сделать надо