Для матрицы 6х6 (36 элементов):
const n=6;
var
a:array[1..n,1..n] of integer;
i,j,max:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51);
write(a[i,j]:3);
end;
writeln;
end;
max:=a[1,1];
for i:=2 to n do
if a[i,i]>max then max:=a[i,i];
writeln('max = ',max);
end.
Пример:
Исходный массив:
32 14 6 10 45 8
39 31 5 28 18 15
3 19 19 18 35 0
42 27 36 28 8 10
5 13 40 10 41 10
35 12 18 17 31 4
max = 41
А где работа то? нет ничего
Бит, байт, килобайт, мегабайт, гигабайт.
100111=1*2^0+1*2^1+1*2^2+1*2^5=1+2+4+32=39
101=1*2^0+1*2^2=1+4=5
(перевод в десятичную)
39+5=44
39*5=195
ответ: 44 и 195
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var n2 := n div 2;
(a[:n2].Reverse + a[n2:].Reverse).Println
end.