Автоматически задаётся массив из 15 элементов. Переставить их в обратном порядке. Паскаль!

Question

Информатика

Каринка

18 августа, 07:00

Автоматически задаётся массив из 15 элементов. Переставить их в обратном порядке. Паскаль!

+3

Ответы (1)

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

Марюня · Answer 1

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.