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

Ответ:Объяснение:В первой программе поставь правильно кавычки в строке writeln('значение n равно', n:1); Во второй программе удали текст "переменная A переменная A[1] переменная A[4]"В третьей программе нужно прописать условие сравнения полностью,у тебя только if A[i], а дальше ничего нет, должно быть условие, далее then и так далее...

Оценить ответ

Загрузить картинку
Не нравится ответ?

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

Найти другие ответы
Новые вопросы и ответы