P.S. Уже писал такую же программу недавно.
При палитре 256 цветов для хранения 1 пикселя необходимо
log(2)256=8 бит=1 байт
Для 1 кадра: 800*600*1 байт
Для фильма длительность 1 секунда: 800*600*16 байт
Для фильма длительностью 1 мин:
800*600*16*60 байт = 800*600*16*60/1024 Кбайт = 450 000 Кбайт ≈
440 Мбайт
Program n1;
const n=11;
var RAF: array[1..n] of integer;
i: integer;
p: real;
begin
write('массив: ');
for i:=1 to n do begin
RAF[i]:=random(21)-5;
write(RAF[i],' ');
end;
p:=1;
writeln;
for i:=1 to n do if RAF[i]<0 then p:=p*RAF[i];
write('произведение отрицательных: ',p);
end.
Ответ:
Linux, Win Vista, Mac OS, Total Commander - системное
Pascal ABC.NET - инструментальное
остальное - прикладное
Объяснение: