1800Кбайт! Это же понятно , из твоих условий мы узнаем сколько за 10 секунд и умножаем на 3 !
8гб = 8*1024 = 8192
490 * 17 = 8330
8330>8192
Ответ нет, нельзя. Однако если засунуть эти видеоролики в сжатый zip архив то возможно что то получится. В условиях школьной задачи это вряд ли предполагается.
Вот.8 бит = 1 байт ,в строке 64байта 40*64=2560байт. 32*2560=81920байт
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Ответ:
Объяснение:
Вибираємо меню: "Файл" - "Друк", вибираємо із переліку потрібний нам засіб друку - кнопка "Друк"