program lab10; var n:integer; begin n:=0; repeat n:=n+1; until ...

Мария

program lab10; var n:integer; begin n:=0; repeat n:=n+1; until n*n+1>=1000; writeln(‘значение n равно‘, n:1); end. Не нравится знак в предпоследней строчке. program class; type mas=array[1..15] of integer; var A:mas; var i, s, k: integer; begin for i:=1 to 15 do переменная A переменная A[1] переменная A[4] readln(A[i]);{заполняем массив} k:=0; s:=0; for i:=1 to 15 do begin s:=s+ A[i]; if A[i]>10 then k:=k+1; end; writeln(k); writeln(s); readln; end. program sort; type mas=array[1..10] of integer; var A:mas;i,n,s,b:integer; begin for i:=1 to 10 do readln(A[i]);{заполнение массива} n:=10;{номер последнего элемента, участвующего в сравнении} s:=0;{перестановок не было} repeat for i:=1 to n do if A[i] begin s:=1;B:=A[i];A[i]:=A[i+1];A[i+1]:=B end;{меняем местами соседние элементы} n:=n-1 until s=0; for i:=1 to 10 do write(A[i]); Везде выдает ошибку, хотя это пример к заданию