Задан массив из 10 вещественных чисел. Поменять значениями второй и третий элемент массива.
Задан массив из 10 вещественных чисел. Поменять значениями второй и третий элемент массива.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы