1 байт = 8 бит
128 бит = 16 байтов
1 Кбайт = 8000 битов
1.5 Кбайт = 1500 байтов
2048 байт = 2,048 Кбайтов
2 мегабайта = 2000 килобайтов
81920 бит = 10,24 килобайт
1.5 мегабайтов = 1,5*10^6 байт
Ответ:
var a = -2;
var b = 2;
var c = 3;
var mas = [a, b, c]; //или mas.push(a); mas.push(b); mas.push(c);
for(var i = 0; i < mas.length; i++)
{
if(mas[i] < 0)
{
Math.pow(mas[i], 2); //или mas[i]*mas[i];
//Вывод квадратов отрицательных чисел
}
else if(mas[i] > 0)
{
Math.pow(mas[i], 3); //или mas[i]*mas[i]*mas[i];
//Вывод кубов положительных чисел
}
}
Объяснение:
Массив использован для удобства, универсальности и компактности кода.
Вот, пришлось вспомнить былые деньки... Эх, ностальгия... Старость х)
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Наименьший элемент равен ',a.Min)
end.
<u>Пример</u>
n= 17
-34 -4 -16 50 -12 -13 -40 -10 4 1 46 -46 2 -13 4 -4 20
Наименьший элемент равен -46
<u>№2</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('Вводите элементы построчно');
var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MaxBy(x->x[0]);
Writeln('Максимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -6 0 9
12 7 12 0
-8 23 6 20
Максимальный элемент A[3,2]=23
<u>№3</u>
begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum);
Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count);
Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count);
end.
<u>Пример</u>
n= 18
-16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10
Сумма положительных элементов равна 87
Количество отрицательных элементов равно 9
Количество нулевых элементов равно 2
<span>m = 13;
n = 21;
n = 2*m-n = 2*13-21 = 26-21 = 5;
m< =n = 13 <= 5 = false </span>⇒<span> p = 4-m*n = 4-13*5 = -61
var n,m,p:integer;
begin
m:=13;
n:=21;
n:=2*m-n;
if m<=n then
p:=m+n
else
p:=4-m*n;
writeln(p);
end.
Результат:
-61</span>
