<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>