В связи с тем, что байт не обязательно 8 бит, задание не полное. Хотя если предположить, что все-таки 8, то получается 14400 бит, 14.0625 килобит, 1800 байт, 1.76 кбайт.
Var a:array[1..10000] of integer;
n,i,max,k:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; k:=1;
for i:=2 to n do
begin
if a[i]>max
then begin max:=a[i]; k:=1; end
else if a[i]=max then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
<span>6
1 2 3 2 3 3
k = 3</span>
Если шаг не задан явно, значит он равен 1.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('Введите элементы матрицы построчно');
var a:=ReadMatrInteger(n,n);
Writeln('Исходная матрица'); a.Println(4);
Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes;
var imin:=s.MinBy(t->t[0])[1];
var imax:=s.MaxBy(t->t[0])[1];
if imin<>imax then a.SwapRows(imin,imax);
Writeln('Матрица-результат'); a.Println(4);
end.
<u>Пример</u>
Количество строк/столбцов в матрице: 5
Введите элементы матрицы построчно
51 -74 -22 -83 -89 87 66 -61 -16 -32 -82 -17 -7 -26 -10 91 5 45 0 25 -47 -44 24 -19 75
Исходная матрица
51 -74 -22 -83 -89
87 66 -61 -16 -32
-82 -17 -7 -26 -10
91 5 45 0 25
-47 -44 24 -19 75
--------------------
Матрица-результат
91 5 45 0 25
87 66 -61 -16 -32
-82 -17 -7 -26 -10
51 -74 -22 -83 -89
-47 -44 24 -19 75