Скорее всего, Вы имели ввиду найти последний максимальный элемент МАССИВА и указать его номер.
Решение на языке Pascal, где используется одномерный массив.
Const
n=10;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Write('Исходный массив: ');
k:=0;
for i:=1 to n do
begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if (a[i]>0) and (a[i] mod 2=0) then Inc(k)
end;
Writeln;
Writeln('Количество четных положительных чисел равно ',k)
end.
Контрольный прогон
Исходный массив: 6 -13 -13 -19 -18 -10 -18 8 -17 -4
Количество четных положительных чисел равно 2
S = 27
к 0 прибавляется 7, затем 6, 5, 4, 3 ,2 = 27; то есть цикл выполняется до тех пор, пока а не станет равно 1
Ответ:
1 * 10^4 + 4 * 10^3 + 3 * 10^2 + 6 * 10^1 + 4 * 10^0
Объяснение:
Program z;
Var N,k:integer;
Begin
k:=0;
If N<5 then k:=k+1;writeln(k);
End.