Задан массив из 10 вещественных чисел. Поменять значениями второй и третий элемент массива.
Ответы на вопрос
Ответил semgreez
0
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.
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.
Ответил semgreez
0
...a[3]:=p;
for i:=1 to 5 do
begin
write(a[i]:3);
end;
end.
for i:=1 to 5 do
begin
write(a[i]:3);
end;
end.
Ответил semgreez
0
...a[3]:=p;
for i:=1 to 5 do
begin
write(a[i]:3);
end; readln;
end.
for i:=1 to 5 do
begin
write(a[i]:3);
end; readln;
end.
Ответил Аноним
0
а разве вещественные ччисла не типа real?
Новые вопросы
Математика,
2 года назад
Алгебра,
2 года назад
Алгебра,
9 лет назад
Литература,
9 лет назад
Математика,
9 лет назад