Допили код под свою прогу,а лучше переходи на питон,там такие вещи легче делаются
Sub aaa()
Dim r As Range
Set r = Range("A1:A10")
i = 1
For Each k In r
Cells(i, 2) = Application.WorksheetFunction.CountIf(r, k)
i = i + 1
Next k
End Sub
Для случая размещения чисел массива в ячейках с А1 по А10
uses crt;
var
x,c:real;
begin
write('Сколько стоит проездной? '); read(x);
write('Вы ездите без билета. Сколько составляет штраф? '); read(c);
write('За безбилетный проезд Вас оштрафовали за месяц на ',5*c,' рублей.');
if (5*c>x) then write('Это невыгодно. Купите проездной.')
else write('Это выгодней, чем покупать проездной каждый месяц.');
end.
1-е изображение 200*400*1=80000 бит
2-е изображение 100*200*2=40000 бит
Объем памяти занимаемый 1ым изображением в 2 раза больше объема 2ого изображения. Т.к. первое изображение больше в 4 раза, но число цветов палитры меньше в 2 раза.