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

1

Ответы и объяснения

2013-11-09T14:14:40+00:00
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.