BelkinaDasha000

31.08.2020 23:12 •  Информатика

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]); везде выдает ошибку, хотя это пример к