Помогите найти ошибки пожалуйста, срочно

[email protected] в категроии Информатика, вопрос открыт 25.01.2018 в 20:56

Program Z1; Var i : integer; D : array [1..30] of integer; N : array [1..30] of integer; begin for i:= 1 to 30 do begin Read (N[i]); Read (D[i]); end; minD:= D[1]; MaxN:= N[1]; SD:= 0; SN:= 0; for i:= 1 to 30 do if minD > D[i] then minD:=[i]; If maxN < N[i] then maxN := N[1]; SD:= SD+D[i]; SN:= SN + N[i]; Write ('minD=',minD); Write ('дни:'); For i := 1 to 30 do if D[i] = minD then write(i); Write ('maxN=',maxN); Write('дни:'); For i := 1 to 30 do if maxN = N[i] then Write (i); ST:= (SD + SN)/60; Write ('ST =', ST:6:2); End.