Паскаль с массивами, ошибка

[Ольга111]

Паскаль с массивами, ошибка

вычислить среднее арифметическое положительных элементов для линейных одномерных массивов х,у,и z.
вот моя программка

Program L7V7;
uses crt;
const n=6;
type matr=array [1..n] of integer;
var x,y,z:matr;
i,k,d,s,a:integer;
u:real;
begin
for i:=1 to n do
begin
write('x[',i,']=');
readln(x);
end;
for i:=1 to n do
begin
write('y[',i,'[=');
readln(y);
end;
for i:=1 to n do
begin
write('z[',i,']=');
readln(z);
end;
begin
if x>0 and y>0 and z>0 then
begin
s:=0;
s:=s+x+y+z;
k:=k+1;
end;
end;
u:=s/k;
end.

ПОСЛЕ Z<0 ВЫДАЕТ ЧТО ОПЕРАНДЫ ИМЕЮТ НЕПРИВОДИМЫЕ ТИПЫ?И УКАЗЫВАЕТ НА i

 

[duc]

begin
if x>0 and y>0 and z>0 then
begin
s:=0;
s:=s+x+y+z;
k:=k+1;
end;
end;
u:=s/k;

Прошу прощения, но абсолютно не понял само тело программы... Как написанное вяжется с заданием

вычислить среднее арифметическое положительных элементов

k не задано вообще, s обнуляется и всё находится вне циклов. В зависимости от конкретной реализации компилятора счётчик цикла i по его завершении может оказаться в неопределённом состоянии, потому и ошибка указывает именно на него.

 

[Vladimir_S]

А к сказанному Duc'ом добавлю следующее:
1. Мутная формулировка задачи. Что значит "среднее арифметическое положительных элементов для линейных одномерных массивов"? Для каждого массива в отдельности? Или по всем трем в куче? Или (как пытаетесь Вы) если элементы трех массивов, стоящие на i-той позиции каждый, положительны, то найти среднее арифметическое между ними? В общем, с места мы не сдвинемся, пока не появится ясная, четкая и однозначная формулировка задания. При этом отмазки типа "А мне так дали!" НЕ ПРИНИМАЮТСЯ. Разбирайтесь, выясняйте - Ваши проблемы.
2. Вы присоединяете модуль CRT. Вопрос - зачем, если ни одной команды CRT в программе не наблюдается? Просто бездумно скатали шаблон?