• Помогите найти ошибку в программе (Массив)

    Program Ah;
    uses crt;
    var A:array[1..15] of integer;
    i,k,n:integer;
    begin
    clrscr;
    for i:=1 to 18 do begin
    writeln('A[',i,']=');
    read(A[i]);
    end;
    writeln('Введите число');
    read(n);
    k:=0;
    for i:=1 to 15 do begin
    if a[i]>n then
    k:=k+1;
    writeln('k=',k);
    readkey;
    end.
    (В последней строке выдает  "Ошибка, ожидается точка с запятой")

Ответы 1

  • for i:=1 to 15 do beginif a[i]>n thenk:=k+1; end; Вот тут не хватает end
    • Автор:

      ashes09eo
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years