Задан массив из 10 вещественных чисел. Поменять значениями второй и третий элемент массива.

Question

Информатика

Марианна

2 октября, 21:25

Задан массив из 10 вещественных чисел. Поменять значениями второй и третий элемент массива.

+3

Ответы (1)

Знаете ответ на вопрос?

Дарий · Answer 1

Var a:array[1 ... 5] of integer; p:integer;

begin

for i:=1 to 5 do

begin

a[i]:=random (10) + 1;

write (a[i]:3) ;

end;

p:=a[2];

a[2]:=a[3];

a[3]:=p;

for i:=1 to 5 do

begin

write (a[i]:3) ;

end;

end.