var
b : array of integer : = new integer[15];
a : array of integer : = new integer[0];
begin
writeln('введите целые числа: ');
for var i : = 0 to 14 do read(b[i]);
for var i
: = 0 to 14 do begin
if b[i] < > 0 then begin
setlength(a, a.length+1);
a[a.length-1] : = b[i];
end;
end;
writeln('b = ', b);
writeln('a = ', a);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Изображение имеет размер 1024х768 точек. информационная емкость файла 1, 5 мб. определите количество цветов изображения (в качестве ответа введите только число постарайтесь решить без использования калькулятора.