2/512 Мбайт = 2*1024/512 Кбайт = 4 Кбайта = 4*1024 байт
Память для одного символа = 4*1024/2048 = 2 байта = 2*8 бит = 16 бит.
Мощность алфавита = 2^16 = 65536
Два цикла? Я что-то не вижу таких решений без изменения переменной внутри циклов, что нехорошо. Твою задачу можно по-простому сделать одним циклам и двумя переменными.
1.Сканер 2. не знаю 3.Дисковод
Var A: Array of Integer;
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
SetLength(A, N + 1);
WriteLn('Массив:');
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + ' ');
End;
WriteLn;
WriteLn('Без отрицательных:');
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + ' ');
End;
sum := 0;
WriteLn;
WriteLn('Среднее арифметическое:');
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
<span>End.</span>
И вообще, просто скажу как решать: из общей стоимости вычитаешь стоимость первого товара и получаешь стоимость второго товара