Информатика

Анночка

31 мая, 05:08

В программе выходит ошибка (встречен конец файла, а ожидался оператор) подскажите, что не так?

program mas;

const n=10;

var a: array[1 ... n]of integer;

i, s: integer;

begin

for i: = 1 to n do begin

a[i]: = random (100);

write (a[i]:3);

for i : = 1 to N-1 do begin

for j : = N-1 downto i do

if a [j]>A[j+1] then begin

c: = A[j];

A[j]: = A[j+1];

A[j+1]:=c;

end;