вычислить среднее арифметическое положительных элементов для линейных одномерных массивов х,у,и 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