Question

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]);

Везде выдает ошибку, хотя это пример к заданию

Answer 1

Ответ:

Объяснение:

В первой программе поставь правильно кавычки в строке writeln('значение n равно', n:1);

Во второй программе удали текст "переменная A переменная A[1] переменная A[4]"

В третьей программе нужно прописать условие сравнения полностью,

у тебя только if A[i], а дальше ничего нет, должно быть условие, далее then и так далее...