// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите массив',ReadInteger('Введите длину массива'));
var b:=ReadInteger('b =') - 1;
a := a.where((v,i) -> i <> b).ToArray;
a.Println;
end.
Пример:
Введите длину массива 5
Введите массив 1 2 3 4 5
b = 4
1 2 3 5
2,5 Кб = 2560 байт = 20480 бит
20480 / 4 = 5120 бит на точку
16 цветов
скорее всего - оттенки серого
<span>Человеком созданы специальные технические устройства, предназначенные для кодирования, обработки, хранения и передачи информации в цифровой форме (компьютер, принтер, сканер, модем и другое.). совокупность таких устройств принято называть аппаратными средствами информатизации.</span>
5МБайт*1024=5120Кбайт
5120Кбайт/48сек=106.66 Кбайт
106.66 * 9 = 959.94 Кбайт
странно конечно что целое число не получается