Найдите ошибкуПаскаль пишет:: Встречено 039;tо039;, а ожидалось 039;?039; (10 строчка)const N

Найдите ошибку
Паскаль пишет:: Встречено '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] gt; 0) and (a[i] mod 3lt;gt;0) and (a[i] lt; min) then min := a[i];
if min lt; 1001
then writeln(min)
else
writeln('He найдено');
end.

Задать свой вопрос
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] gt; 0) and (a[i] mod 3lt;gt;0) and (a[i] lt; min) then
min := a[i];
if min lt; 1001
then writeln(min)
else
writeln('He найдено');
end;
end.
Ярослава
Извиняюсьчто сходу не скзаал, но мне нельзя поменять текст программки до куска const N = 20;vara: array [1..N] of integer;i, j, min: integer;beginfor i := 1 to N doreadln(a[i]);
Наталья Шахетова
const N = 20;vara: array [1..N] of integer;i, j, min: integer;beginfor i := 1 to N doreadln(a[i]);min := 1001;for i := 1 to N dobeginif (a[i] > 0) and (a[i] mod 3<>0) and (a[i] < min) then min := a[i];if min < 1001then writeln(min)elsewriteln('He найдено');end;end.
Центлер Надежда
Спасибо! в чем была ошибка?)
Aleksej Zavizionov
У меня подозрение на транслит
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт