Автоматически задается массив из 15 элементов

Question

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

Answer 1

52

konsan

28 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: