var a:array of integer;
i,n,k:integer;
begin
write('Введите количество элементов массива: ');
readln (n);
a:=new integer[n];
write ('Массив: ');
for i:=0 to n-1 do
begin
a[i]:=random(199)-99;
if a[i] < 0 then k:=k+1;
write (a[i]:5);
end;
writeln;
write ('Количество отрицательных элементов ',k)
end.
компьютер
мощный, умный
подсказывает, вычисляет ,виснет
Это очень хороший помощник
изобретение
При использовании 16777213 цветов (2^24) для хранения цвета одного пикселя требуется log(2)2^24 = 24 бита = 3 байта.
Необходимые объемы видеопамяти:
1) 640*480*3 байт = 921 600 байт = 921 600 / 1024 Кбайт = 900 Кбайт
2) 800*600*3 байт = 800*600*3 / 1024 Кбайт = 1406,25 Кбайт
3) 1024*768*3 байт = 1024*768*3 / 1024 Кбайт = 2304 Кбайт
4) 1240*1024*3 байт = 1240*1024*3 / 1024 Кбайт = 3720 Кбайт