Найдите ошибку паскаль пишет: : встречено 'tо', а ожидалось '? ' (10 строчка) const n = 20; var a: array [1..n] of integer; i, j, min: integer; begin for i : = 1 to n do readln(a[i]); min : = 1001; for i : = 1 tо n do if (a[i] > 0) and (a[i] mod 3< > 0) and (a[i] < min) then min : = a[i]; if min < 1001 then writeln(min) else writeln('he найдено'); end.

Скопируй так

const N = 20;
var
a: array [1..N] of integer;
i, j, min: integer;
begin
for i := 1 to N do begin
readln(a[i]);
min := 1001;
end;
for i:=1 to N do
begin
if (a[i] > 0) and (a[i] mod 3<>0) and (a[i] < min) then
min := a[i];
if min < 1001
then writeln(min)
else
writeln('He най­де­но');
end;
end.