Задать вопрос
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.

+3
Ответы (1)
  1. 23 августа, 06:13
    0
    Скопируй так

    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найдите ошибку Паскаль пишет:: Встречено 'tо', а ожидалось '?' (10 строчка) const N = 20; var a: array [1 ... N] of integer; i, j, min: ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы