Readln(n); for i:=1 to n do a[i]:=random(100); //тут можно ввести макс. значение для рандома k:=n div 2; for i:=1 to k do begin t:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=t; end; inc(k); for i:=k to n do begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t; end; for i:=1 to n do write(a[i],' '); writeln; readln; end.
1) собирается - журналист опрашивает людей для статьи 2) обрабатывается - ученик решает уравнение 2) упрощается - преподователь объясняет материал 3) создается - журналист придумывает статью 4) запоминается - парнень запоминает номер телефона девушки 5) измеряется - программист рассчитывает сколько бит займет программа 6) копируется - ученик списывает у одноклассника 7) передается - две девушки обмениваются новостями 8) принимается - ученики слушают учителя на уроке 9) разрушается - статья журналиста отвергается 10) делится на части - человек разбирает сообщение в котором пропущены пробелы 11) ищется - человек ищет материал для реферата в интернете
1. Основная трудность при чтении египетских иероглифов в том, что большинство египтян не имели понимания древнегреческой системы иероглифов. 2. Египтяне использовали значки-определители для того, чтобы лучше было читать. Значки-определители служили для звучаний слов. 3. Потому что само чтение или писание древнегреческих иероглифов было сложно , так как в то время образования было ужасным. 4. Первым, кому удалось расшифровать египетские иероглифы, был французский учёный, Жан-Франсуа Шампольон(1790-1832). Он составил полный список иероглифов и их греческих эквивалентов, создав тем самым основу для перевода всех египетских иероглифических текстов. 5. Основным носителем информации в египте являлись глиняные таблички, папирусные свитки и наскальные надписи. 6. Стебли растения разрезали на полосы, которые переплетали между собой, прессовали и высушивали на солнце. 7. Хранили в глиняных кувшинах и шкатулках.
for i:=1 to n do
a[i]:=random(100); //тут можно ввести макс. значение для рандома
k:=n div 2;
for i:=1 to k do
begin
t:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=t;
end;
inc(k);
for i:=k to n do
begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t;
end;
for i:=1 to n do
write(a[i],' ');
writeln;
readln;
end.