Вывести элементы массива на экран в обратном порядке

. люди хранят информацию либо в собственной памяти (иногда говорят - "в уме"), либо на каких-то внешних носителях. чаще всего - на бумаге.те сведения, которые мы помним, всегда нам доступны. например, если вы запомнили таблицу умножения, то вам никуда не нужно заглядывать для того, чтобы ответить на вопрос: сколько будет пятью пять? каждый человек помнит свой адрес, номер телефона, а также адреса и телефоны близких людей. если же понадобился адрес или телефон, которого мы не помним, то обращаемся к записной книжке или к телефонному справочнику.память человека можно условно назвать оперативной. здесь слово "оперативный" является синонимом слову "быстрый". человек быстро воспроизводит сохраненные в памяти знания. свою память мы еще можем назвать внутренней памятью. тогда информацию, сохраненную на внешних носителях (в записных книжках, справочниках, энциклопедиях, магнитных записях), можно назвать нашей внешней памятью.

предполагается, что вводимые числа - целые.

1) с цикла repeat until

program n1; uses crt; var s,k,i: integer; sr: real; beginwriteln('vvodite chisla. vvedite 0 dlya okoncania vvoda'); repeatreadln(i); s: =s+i; inc(k); until i=0; sr: =s/(k-1); writeln('srednee arifmeticheskoe = ',sr: 4: 4); readlnend.

2) с цикла while

program n1; uses crt; var s,k,i: integer; sr: real; beginwriteln('vvodite chisla. vvedite 0 dlya okoncania vvoda'); i: =1; while i< > 0 dobeginreadln(i); s: =s+i; inc(k); end; sr: =s/(k-1); writeln('srednee arifmeticheskoe = ',sr: 4: 4); readlnend.

3) с цикла for

program n1; uses crt; var s,j,k,i: integer; sr: real; beginwriteln('vvedite kolichestvo chisel'); readln(k); writeln('vvodite chisla'); for j: =1 to k do begin readln(i); s: =s+i; end; sr: =s/k; writeln('srednee arifmeticheskoe = ',sr: 4: 4); readlnend.