Найдите ошибку
Паскаль пишет:: Встречено '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.
Паскаль пишет:: Встречено '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.
More Questions From This User See All
Answers & Comments
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.
N = 20;
var
a: array [1..N] of integer;
i, j, min: integer;
begin
for i := 1 to N do
readln(a[i]);
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 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.