76

Заполнить массив из 10 элементов случайными числами и сделать реверс всех…

03 марта 2023

Заполнить массив из 10 элементов случайными числами и сделать реверс всех элементов, кромепервого

категория: информатика



39

const n=10; var a: array[1… n] of integer; i,tmp: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random (21) -10; Write (A[i]: 3); end; writeln; for i: =2 to n div 2 do begin tmp: =a[i]; a[i]: =a[10-i+2]; a[10-i+2]: =tmp; end; for i: =1 to n do write (a[i]: 3); readln; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...