Найдите ошибку

Паскаль пишет:: Встречено '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 30) and (a[i] < min) then min : = a[i];

if min < 1001

then writeln (min)

else

writeln ('He найдено') ;

end.

Question

Информатика

Коляша

23 августа, 02:51

Найдите ошибку

Паскаль пишет:: Встречено '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 30) and (a[i] < min) then min : = a[i];

if min < 1001

then writeln (min)

else

writeln ('He найдено') ;

end.

+4

Ответы (1)

Знаете ответ?

Аполлония · Answer 1

Скопируй так

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 30) and (a[i] < min) then

min : = a[i];

if min < 1001

then writeln (min)

else

writeln ('He найдено') ;

end;

end.