Электроник - это мальчик-робот. Внешне он ничем не отличается от подростка двенадцати лет. Да это и неудивительно. Ведь придумавший его профессор Громов взял за основу фото какого -то мальчика из журнала. Профессор научил робота всему, что должен уметь делать человек. Электроник умеет не только двигаться и говорить. Он также решает очень трудные математические задачи, легко выигрывает велогонку, а также показывает отличные результаты на уроке физкультуры. Ещё Электроник рисует, как художник, читает стихи, как артист, поёт, как Робертино Лоретти. Всё это хорошо, но роботу этого мало. Он хочет стать человеком по-настоящему, то есть научиться общаться с разными людьми, а не только с профессором и его
Из-за этого Электроник сбежал от профессора и познакомился с ребятами из нашего класса. Мы сразу же полюбили этого весёлого и доброго мальчика. Он легко нашёл общий язык со всеми нами. Электроник никогда не показывал своего превосходства, хотя знал намного больше, чем мы. Так случилось, что тот мальчик, с портрета которого был списан внешний облик Электроника, учился именно в нашем классе. И однажды мы решили узнать: а что будет, если робот пойдёт в школу вместо него. Сначала всё шло отлично. Но однажды кто-то из учителей увидел в газете объявление: "От профессора ушёл робот". Ниже была напечатана фотография. Теперь стало понятно, почему троечник вдруг неожиданно превратился в вундеркинда. В школе был грандиозный скандал. Робота пришлось вернуть профессору, а тому мальчику вместо которого робот несколько недель ходил в школу пришлось заново пересдавать все предметы
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица [',n,',',n,'] ***'); var c:=MatrRandom(n,n,-99,99); c.Println(4); Writeln(4*c.ColCount*'-'); var t:=new real[2*n]; var j:=0; for var i:=0 to n-1 do begin t[j]:=c[i,i]; t[j+n]:=c[i,n-i-1]; j+=1 end; t.Println end.
Из-за этого Электроник сбежал от профессора и познакомился с ребятами из нашего класса. Мы сразу же полюбили этого весёлого и доброго мальчика.
Он легко нашёл общий язык со всеми нами. Электроник никогда не показывал своего превосходства, хотя знал намного больше, чем мы.
Так случилось, что тот мальчик, с портрета которого был списан внешний облик Электроника, учился именно в нашем классе. И однажды мы решили узнать: а что будет, если робот пойдёт в школу вместо него. Сначала всё шло отлично. Но однажды кто-то из учителей увидел в газете объявление: "От профессора ушёл робот". Ниже была напечатана фотография. Теперь стало понятно, почему троечник вдруг неожиданно превратился в вундеркинда.
В школе был грандиозный скандал. Робота пришлось вернуть профессору, а тому мальчику вместо которого робот несколько недель ходил в школу пришлось заново пересдавать все предметы
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',n,'] ***');
var c:=MatrRandom(n,n,-99,99);
c.Println(4); Writeln(4*c.ColCount*'-');
var t:=new real[2*n];
var j:=0;
for var i:=0 to n-1 do begin
t[j]:=c[i,i];
t[j+n]:=c[i,n-i-1];
j+=1
end;
t.Println
end.
Пример
Количество строк/столбцов в матрице: 7
*** Исходная матрица [7,7] ***
-61 73 25 31 91 -61 -13
-9 -51 -98 57 -46 -16 -39
-14 68 -77 16 74 17 86
9 -29 -2 -17 -30 23 84
71 15 22 -58 -46 42 -96
-29 -38 30 -51 70 -67 -15
8 -96 -22 85 41 -71 -57
-61 -51 -77 -17 -46 -67 -57 -13 -16 74 -17 22 -38 8