Логика ниже. Подгони под нужный яп:
read(n,k);
s:=0;
for i:=1 to n do s:=s+1^k;
print(s);
Надсистема-Первая группа решений задачи минимизации связана с использованием надсистемы. Что такое надсистема? Это то, что окружает систему; то, с чем она взаимодействует. Для устройства – это окружающие его другие устройства, которые работают вместе. Так, для плазменной панели в качестве надсистемы может выступать мультимедийный центр, который включает саму плазменную панель, DVD-плеер, игровую приставку, колонки, компьютер.
Т.к. язык не указан, написал на паскале.
На сколько я понял, это должно выглядеть как-то так:
https://pastebin.com/puua5grq
program P1;
uses
crt;
var
mas : array[1..20] of integer;
i,j,k : integer;
tmp : string;
begin
clrscr;
writeln('Start array: ');
for i := 1 to 20 do
begin
mas[i] := random(100);
write(mas[i],' ');
end;
for i := 1 to 20 do
begin
if mas[i] mod 2 = 0 then
mas[i] := 0;
end;
for i := 1 to 20 do
begin
if mas[i] = 0 then
begin
for j := 20 downto i do
if mas[j] <> 0 then
begin
k := mas[j];
mas[j] := mas[i];
mas[i] := k;
end;
end;
end;
writeln('');
writeln('Result array: ');
for i := 1 to 20 do
write(mas[i],' ');
readln(tmp);
read(tmp);
end.
Ответ на ребус - информация