<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>
Блок-схема - в прилагаемом файле.
1.
integer: b, d;
real : e,h;
bool: c,j;
char: A, f, j , i;
2.
256
3.
a = 32
4.
a = 40
5.
b = 48