<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>
Ван нужно перевести килобайты в байты?
0,25 Кб = 256 б
<span>Волшебство первой фразы заключается в том, что она вмещает в себя все имеющиеся в русском языке глухие согласные. Вторая и третья напоминают о том, что шипящие бывают мягкие и твердые, в одной собраны мягкие, в другой – твердые.</span>