Размещено 4 года назад по предмету
Информатика
от AlexNayt
Помогите найти ошибку в программе (Массив)
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. (В последней строке выдает "Ошибка, ожидается точка с запятой")