Задание:
Автоматически задается массив из 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.
Знаете другой ответ?