Автоматически задаётся массив из 15 элементов. Переставить их в обратном порядке. Паскаль!
Автоматически задаётся массив из 15 элементов. Переставить их в обратном порядке. Паскаль!
Гость
Ответ(ы) на вопрос:
Гостьvar
a : array [1..15] of real;
i : integer;
c : real;
begin
randomize;
for i := 1 to 15 do
begin
a[i] := random (100);
write (a[i], ' ');
end;
writeln;
for i := 1 to 7 do
begin
c := a[i];
a[i] := a[15 - i + 1];
a[15 - i + 1] := c;
end;
for i := 1 to 15 do
write (a[i], ' ');
readln;
end.
Не нашли ответ?
Похожие вопросы