const n=20;
var a:array [1..n] of integer;
i,max,maxi,min,mini:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(101)+50;
write (a[i],' ')
end;
max:=a[1];
maxi:=1;
min:=a[1];
mini:=1;
for i:= 1 to n do
begin
if a[i]>max then
begin
max:=a[i];
maxi:=i
end;
if a[i]<min then
begin
min:=a[i];
mini:=i
end
end;
writeln;
writeln('Максимальный элемент ',max,' и его номер ',maxi);
writeln('Минимальный элемент ',min,' и его номер ',mini)
end.
Или (если max или min элемент будет не один)
const n=20;
var a:array [1..n] of integer;
i,max,min:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(101)+50;
write (a[i],' ')
end;
max:=a[1];
min:=a[1];
for i:= 1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]
end;
writeln;
for i:= 1 to n do
begin
if a[i]=max then writeln('Максимальный элемент ',max,' и его номер ',i);
if a[i]=min then writeln('Минимальный элемент ',min,' и его номер ',i)
end
end.
#include <iostream>
#include <set>
typedef long long ll;
int main()
{
std::multiset<ll> st;
{
int n;
ll population;
std::cin >> n;
for(int i = 0; i < n; ++i)
{
std::cin >> population;
st.insert(population);
}
}
ll result = 0;
while(st.size() > 1)
{
ll a = *st.begin();
ll b = *(++st.begin());
st.erase(st.begin());
st.erase(st.begin());
a += b;
result += a;
st.insert(a);
}
std::cout << result;
return 0;
}
Объяснение:
Решил не я!
1.
456,78(10)=4*10^2+5*10^1+6*10^0+7*10^-1+8*10^-2
2.
10011,011(2)=1*2^4+0*2^3+0*2^2+1*2^1+1*2^0+0*2^-1+1*2^-2+1*2^-3
3.
Иерархическая структура памяти ЭВМ - является традиционным решением проблемы хранения больших объемов данных. На самом верху иерархии находятся регистры процессора. Доступ к регистрам осуществляется быстрее всего. Дальше идет кэш-память, объем которой сейчас составляет от 32 Кбайт до нескольких мегабайтов. Затем следует основная память, которая в настоящее время может вмещать от 16 Мбайт до десятков гигабайтов. Затем идут магнитные диски и, наконец, накопители на магнитной ленте и оптические диски, которые используются для хранения архивов.
4.
Program Perimeter_of_a_rectangle;
var
A: integer;
B: integer;
PERIMETER: integer;
begin
write('Введите сторону А: ');
read(A);
write('Введите сторону B: ');
read(B);
PERIMETER:=A*2+B*2; // Вычисление периметра прямоугольника
write('Периметр прямоугольника равен: '+PERIMETER);
end.
6.
Program A_or_B;
var
A, B: longint;
begin
write('Введите число A: ');
read(A);
write('Введите число B: ');
read(B);
if A > B then
writeln('Число А больше числа В');
if B > A then
writeln('Число В больше числа А');
end.
Надеюсь удачи :)