Вмассиве c размером 9 заполненном с клавиатуры различными числами найти максимальный элемент и его адрес. ​

ответ:

program posled;

var a: array[1..100] of integer;

i, n: integer;

begin

write (‘сколько элементов? ’); readln (n);

for i=1 to n do

begin

a[i]: = random(58)-23;

writeln (a[i],’ ‘);

end;

end.

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

procedure MyProc;
begin
  var n:=ReadInteger('Введите порядок матрицы:');
  Writeln('Введите построчно элементы матрицы');
  var a:=ReadMatrInteger(n,n);
  Writeln(4*a.ColCount*'-');
  Write('Строки, содержащие только нули: ');
  for var i:=0 to n-1 do
    if a.Row(i).All(t->t=0) then Print(i+1);
  Writeln
end;

begin
  Loop 2 do MyProc
end.

Пример
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0

Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0

Строки, содержащие только нули: 1 2

На бумаге сорри не получится, но постараюсь досконально объяснить:

1) 379 в 10 системе счисления сначала переводим в 2 систему счисления: мы число 379 делим на 2 до того момента, когда выражение будет равно 0.

379 : 2 = 189 остаток 1

189 : 2 = 94 остаток 1

94 : 2 = 47 остаток 0

47 : 2 = 23 остаток 1

23 : 2 = 11 остаток 1

11 : 2 = 5 остаток 1

5 : 2 = 2 остаток 1

2 : 2 = 1 остаток 0

1 : 2 = 0 остаток 1

Теперь, мы обращаем наше внимание на остаток, оно и является ответом, только есть нюанс, мы должны писать числа с конца.

Получаем, что 379 в 10 сист.сч. = 101111011 в 2 системе счисления

Аналогично и с 8 системой счисления :

379 : 8 = 47 остаток 3

47 : 8 = 5 остаток 7

5 : 8 = 0 остаток 5

379 в 10 системе счисления = 573 в 8 системе счисления