Найти ошибку. abc

[Алькер]

Создать и вывести массив У(8), с элементами уk = ln(k) - 3k, где k = 1,2…. Сколько в массиве элементов с минимальным значением среди положительных?.

program zadacha9;
var x,y:array[1..8] of real; i,k,m,min,count:integer;  sum:real;
begin
sum := 0;
m:=0;
writeln('y:');
for k:=1 to 8 do begin
y[k]:=ln(k)-3*k;
if (y[k]>0) then begin
m:=m+1;
x[m]:=y[k];
end;
writeln('y(' , k,')=',y[k]:7:2);
if m = 0 then writeln('')
else
for k := 1 to m do
writeln('x[' , m , ']= ' , x[m]:7:2);
end;
min:=1;
for i:=1 to 8 do
if x>0 and y>0 then
if (min<0) or (y[i]<min) then begin
count:=1;
min:=y[i];
end else
if min<0 then writeln('Положительных элементов нет')
else writeln(count,' минимальных положительных элементов со значением ',min:8:3);
end.

[ZX Spectrum-128]

Вопрос: а вы вообще проверяли сами программу? Что вам компилятор сказал?

[Алькер]

операнды имеют не проводимые типы.. Всю голову сломала

[Stilet]

Программа явно написана без попытки ее понять.
Синтаксические ошибки исправляю:

var x,y:array[1..8] of real; i,k,m,count:integer;  sum,min:real;
begin
sum := 0;
m:=0;
writeln('y:');
for i:=1 to 8 do begin
    y[i]:=ln(i)-3*i;
    if (y[i]>0) then begin
       m:=m+1;
       x[m]:=y[i];
    end;
    writeln('y(' , i,')=',y[i]:7:2);
    if m = 0 then writeln('') else
    for k := 1 to m do
        writeln('x[' , k , ']= ' , x[k]:7:2);
end;

min:=1;
for i:=1 to 8 do
    if (x[i]>0) and (y[i]>0) then
       if (min<0) or (y[i]<min) then begin
          count:=1;
          min:=y[i];
       end else
       if min<0 then writeln('Положительных элементов нет')
       else writeln(count,' минимальных положительных элементов со значением ',min:8:3);

end.

Логику оставляю нетронутой.