Паскаль
program test;
uses crt;
const n=10;
var a,b:array [1..n] of integer;i:integer;
begin
clrscr;
randomize;
for i:=1 to n do
a[i]:= random(10);
for i:=1 to 10 do
write(a[i],' ');
writeln;
for i:=1 to n do
if i=n then b[n]:=a[1] else b[i]:=a[i+1];
for i:=1 to 10 do
write(b[i],' ');
readln;
end.
<h2>ОТМЕТЬ КАК ЛУЧШЕЕ</h2>
Проект в какой форме? письменной или же презентация?
Каждый член семьи должен выполнять свои задачи, распределенные семьей.
1Перейти на органическое топливо для машин
2Перестать сорить на улицах
3Не пользоваться полиэтиленовыми пакетами
4Перейти на энергосберегающие лампочки
5Прекратить вырубку леса
6 Не разжигать костры на природе и убирать за собой
7Убирать за своими собаками на улицах
8Сажать растения на улицах города
9 Не убивать животных ради мяса
<span>10 Не загрязнять реки, водоёмы</span>