Обычно язык и алфавит програмирования состоит и з знаков припенания и из двух цифр это 1 и 0
<span>в. repeat k<1 until k:=k+1;
Должно быть: </span>repeat k:=k+1 until k<1;
<span>Массив одномерный из 10 элементов.</span>
var a : Array [1..10] Of Real;
<span> I:integer;
</span>Begin
<span>For i:=1 to 10 do read (a[i]); {ввод элементов массива}
</span><span>For i:=1 to 10 do {открыт цикл}
</span><span><span> If</span> a[i] < 0 then a[i]:=0; {сравнение элемента массива с нулем и если да то замена}
</span><span>For i:= 1 to 10 do write(a[i]); {вывод элементов массива}
</span><span>End.</span>