Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>
Ответ:
1. нет ответа
4. а) сжать изображения
б) удалить встроенные шрифты
5 фотографий
Объяснение:
1. таблицы наверное забыли загрузить...
4. а) с помощью любого графического редактора изменить параметры изображений
б) удалить встроенные шрифты
в) можно еще упаковать документ с помощью архиватора, но самый лучший выход почистить наконец флешку от ненужного хлама. Но это для ответа не годится, т. к. не соблюдаются условия задачи.
5.
1 Гб = 1 * 1024 * 1024 = 1048576 Кб - память фотоаппарата
1048576 Кб / 30720 Кб = 34,133333333333333333333333333333 - всего фотографий
34 - 29 = 5 - осталось
Простая вода только под другим названием