Ольга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[i]);
end;
for i:=1 to n do
begin
write('y[',i,'[=');
readln(y[i]);
end;
for i:=1 to n do
begin
write('z[',i,']=');
readln(z[i]);
end;
begin
if x[i]>0 and y[i]>0 and z[i]>0 then
begin
s:=0;
s:=s+x[i]+y[i]+z[i];
k:=k+1;
end;
end;
u:=s/k;
end.

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

duc

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

Vladimir_S

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