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

Question

Информатика

Кононка

3 августа, 21:08

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

+4

Ответы (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.