Положительного, есть теория по этому)
<u>1 Кбайт = 1024 байт</u>
8 Кбайт = 1024х8 байт
<u>1 Мбайт = </u><span><u>1048576 байт
</u>16 Мбайт = </span><span>1 048 576x16=16 777 216 байт
</span><u>
1 Гбайт = </u><u>8 589 934 592</u><u>
</u>20 Гбайт = <span>8 589 934 592x20=171 798 691 840 байт</span>
#include <iostream>
int main()
{
int a[12] = {};
int k = 0;
int sum = 0;
for (int i = 0; i < 12; i++)
std::cin >> a[i];
for (int i = 0; i < 12; i++){
if (a[i] < 0){
sum = sum + a[i];
k = k + 1;
}
}
std::cout << sum / k;
}
uses crt;
var i,ch,s,n:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
begin
readln(ch);
if ch<301 then
begin
if ch mod 6 = 0 then s:=s+ch;
end else begin writeln('error'); break; end;
end;
writeln;
writeln(s);
readln;
end.
===== PascalABC.NET =====
begin
var a := ReadArrReal(6);
var (i1, i2) := (a.IndexMax, a.IndexMin);
if i1 > i2 then
Swap(i1, i2);
a := a[i1 + 1:i2].Where(p -> p > 0).ToArray;
Print('Сумма', a.Length, 'элементов равна', a.Sum)
end.