Помогите найти ошибку в программе (Массив)Program Ah;uses crt;var A:array[1..15] of integer;i,k,n:integer;beginclrscr;for i:=1 to 18 do beginwriteln('A[',i,']=');read(A[i]);end;writeln('Введите число');read(n);k:=0;for i:=1 to ...
Помогите найти ошибку в программе (Массив)
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.
(В последней строке выдает "Ошибка, ожидается точка с запятой")
Гость
Ответ(ы) на вопрос:
Гостьfor i:=1 to 15 do begin
if a[i]>n then
k:=k+1;
end;
Вот тут не хватает end
Не нашли ответ?
Похожие вопросы