Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку, заменив положительные элементы на число 0.
1) Переводим разрешающую сканера из дюймов в см. 1 дюйм=2,54 см 1200dpi/2,54см=472 точек на см Площадь листа формата А4==21*29,7=623,7 см^2 А всего точек в сканируемом изображение будет: 472*472*623,7=138950380,8 Каждая точка кодируется с бит, поэтому на кодирование всех точек на листе надо: 138950380,8*24=3334809139 бит информации или 416851142,4 байт или 407081 Кбайт или 397,5 Мбайт 2) Время звучания файла=объем файла/(число каналов*разрядность*частоту) Объем=2847*512*8=11661312 бит T=1161312/(1*8*8000)=182 c T=1161312/(2*16*48000)=7.6 с
var a: array[0..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
write(random(21)-10,' ');
end;
end.