Найти сумму чисел больших 7 среди 10 введенных с клавиатуры

1) Минимальное основание = 10

2) Минимальное основание = 5

3) Минимальное основание = 8

Объяснение:

Система счисления записи чисел с цифр;

Цифры - специальные знаки или символы для записи чисел;

Алфавит - набор цифр, используемые в системе счисления;

Основание - количество цифр в алфавите.

Алфавит каждой системы счисления начинается с нуля:

2-ая (основание) система счисления: 0, 1; (содержит две цифры)

3-ая (основание) система счисления: 0, 1, 2; (содержит три цифры)

4-ая (основание) система счисления: 0, 1, 2, 3; (содержит четыре цифры)

5-ая (основание) система счисления: 0, 1, 2, 3, 4; (содержит пять цифр)

6-ая (основание) система счисления: 0, 1, 2, 3, 4, 5; (содержит шесть цифр)

7-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6; (содержит семь цифр)

8-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6, 7; (содержит восемь цифр)

9-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6, 7, 8; (содержит девять цифр)

10-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9; (содержит десять цифр)

1)

9, 122, 1100, 14

Находим наибольшие цифры в каждом числе

9, 122, 1100, 14

Находим наибольшую цифру среди всех чисел

9, 2, 1, 4

Наибольшая цифра = 9 ⇒ минимальное основание = 10

2)

100, 112, 1004, 4444

Находим наибольшие цифры в каждом числе

100, 112, 1004, 4444

Находим наибольшую цифру среди всех чисел

1, 2, 4

Наибольшая цифра = 4 ⇒ минимальное основание = 5

3)

11, 7, 12, 222, 102

Находим наибольшие цифры в каждом числе

11, 7, 12, 222, 102

Находим наибольшую цифру среди всех чисел

1, 7, 2

Наибольшая цифра = 7 ⇒ минимальное основание = 8

program array_k;

var k, n: integer;

var a: array[1..15, 1..15] of integer;

begin

writeln('Задайте порядок матрицы n (0 < n < 15)');

readln(n);

writeln('Задайте число k (0 < k < n)');

readln(k);

for m: integer := 1 to n do

begin

writeln;

for o: integer :=1 to n do

begin

a[m, o] := random(30) + 1;

//+1 - чтобы избежать деления на ноль

write(a[m, o] : 5, ' ')

end

end;

writeln;

for m: integer := 1 to n do

begin

writeln;

for o: integer := 1 to n do

if m = k then write(a[m, o]/a[k, k] : 5 : 2, ' ')

else write(a[m, o] : 5, ' ');

end

end.