Program n_1
Var A: array [1..111] of {тип}
Begin
{Тело программы}
End.
Типы
Real
Integer и др.
Объем видеопамяти
16 килобайт = 16 * 1024 = 16 384 байт
умножаем на 8 бит в байте = 131 072 бит
разрешение экрана
256*128 = 32 768 точек
делим объем памяти на кол-во пикселей
131 072 бит / 32 768 пиксель = 4 бита на пиксель
количество цветов определяем по формуле
2^кол-во бит = кол-во цветов
2^4 = 16 цветов
ответ - в палитре 16 цветов
На локальном диске (:С) или на флешке ,или на диске.
Во внешней папяти
Var a:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(26);
writeln(a[i]);
if a[i] > 12 then k := k + 1;
end;
writeln('Элементов массива превышающих 12: ',k);
end.