Встречен конец файла а ожидалось выражение

Обновлено: 04.11.2024

uses crt;
const nmax=9;
var a:array[1..nmax] of integer;
n,i:integer;
begin
radomize;
repeat
write('Введите элементы массива, в том числе ноли:');
for i:=1 to n do
begin
write ('a[',i,']=');
read(a[i]);
end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Замена всех элементов массива, которые делятся без остатка на 3:');
for i:=1 to n do
begin
if a[i] mod 3=0 then a[i]:=1;
write(a[i],' ');
end;

Дополнен 4 года назад

Голосование за лучший ответ

Посчитай, сколько у тебя в коде begin и end
begin - 3, end - 2
Значит, не хватает одного end

Читайте также:

  
• Фраза понеслась душа в рай
  
• In the end перевод фразы
  
• Что же ты моя старушка приумолкла у окна по цели высказывания
  
• Фразы на карельском языке
  
• Выражения со словом холодный