Решите пожалуйста программу в паскале:Составить программу, которая формирует массив из 10 случайных чисел от -30 до 30 и если третий элемент больше нуля,

+ 0 -

DashaKazakstan

15 мая 2013 г., 10:27:05 (10 лет назад)

program pr;
var 
a: array [1..10] of integer;
i, m: integer;
begin
for i:= 1 to 10 do
a[i]:=-30+ random(30+30+1);

for i:=1 to 10 do 
write(a[i]:5);

if a[3]>0 then begin
                    m:= a[3];
                    a[3]:=a[5];
                    a[5]:=m;
                    end;
if a[3]=0 then begin
                    a[3]:=a[3]*2;
                    a[5]:=a[5]*2;
                    end;
for i:= 1 to 10 do
write ( a[i]:5);
end.