Program z17;
const n = 60;
var c: array [1..n] of integer;
k, i:integer;
Begin
randomize;
k:=0;
for i:=1 to n do
c:= random (21)-10;
if i mod 4 = 0 then
if c=0 then
k:=k+c[i];
end;
end;
end;
writeln (k);
end.

Ошибка: попытка присвоить переменной типа array [1..60] of integer выражение типа integer

может я криворукий, но какого чёрта переменной типа integer нелбзя присвоить выражение типа integer

Даааа, во втором случае я тоже индекс забыл, спасибо большое

Второй случай, кстати, у Вас вне цикла, индекс мало поможет.

ага, дальше сам разбираю, спасибо за указание на самую глупую ошибку))

Немножко есть криворукости: нужно присваивать не с, а с[i]c[i]:= random (21)-10;А вот дальше совсем плохо.if c=0 then - это как, весь массив равен нулю? Это в Паскале нельзя писать.