var
arr:array[1..1000] of integer;
i,N:integer;
max:integer;
begin
max:=1;
write('Укажите кол-во эл-ов - ');
read(N);
for i:=1 to N do//Присваивание и вывод массива
begin
arr[i]:=1+random(100);
write(arr[i],' ');
if arr[i]>max then max:=arr[i];
end;
writeln;
writeln('Максимальный эл-т - ',max);
for i:=1 to N do//Увеличение чет. эл-ов
begin
if arr[i] mod 2=0 then arr[i]:=arr[i]+max;
write(arr[i],' ');
end;
end.
Объяснение:
program AndryshaHomenko;
type mas = array of array of integer;
var a: mas;
n, i, j, summa, k: integer;
begin
write('Дан двумерный массив a, размером (n´n)(или квадратная матрица а).');
writeln('Найти среднее арифметическое положительных элементов еѐ побочной диагонали.');
writeln;
writeln('Введите размерность массива: ');
readln(n);
setlength(a, n, n);
summa := 0;
k := 0;
randomize;
for i := 0 to n - 1do
for j := 0 to n - 1 do
begin
a[i, j] := random(201) - 100;
write(a[i, j], '; ');
if (j = n - 1) then writeln;
if ((j = n - i - 1) and (a[i, j] > 0)) then
begin
summa := summa + a[i, j];
k := k + 1;
end;
end;
writeln('Среднее арифметическое положительных элементов побочной диагонали массива равно ', summa / k : 0 : 2);
readln;
end.
Оба искомых числа должны лежать в промежутке от 49 (100 в 7-ричной записи) и 342 (666 в 7-ричной записи) и давать в сумме 400 (1111 в 7-ричной записи), т.е., a+b=400 => a=400-b,
Минимальное а, для которого все эти условия выполняются, равно 58, при b=342.
Остальные пары : (59, 341), (60, 340), ... (342, 58), таких пар будет 285. Поскольку пары, отличающиеся только порядком, мы считаем за одну, значит делим на 2: 285/2 = 143. (одно сочетание непарное)
ответ 143