Var
x,max:real;
n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
begin
write('Введите число ',i,': ');
readln(x);
if x<0 then
begin
if max=0 then max:=x; // если это первое отр.число
if x>max then max:=x
end
end;
writeln('Наибольшее среди отрицательных: ',max)
<span>end.</span>
Статические модели не изменяются во времени.
пример модели: карта местности, схема ПК, разные перечни.
динамические модели содержат инфу о поведении системы и ее составных частей.
Пример: График изменения температуры
Во первых, второй из вложенных циклов for i:=j to 6 заменить на for i:=j+1 to 6; во вторых, переменная t не инициализируется перед входом в цикл по i , и берется ее предыдущее значение
если на месте j уже стоит наименьшее число, поэтому, в строках for j:=1 to 6 do
begin
<span>min:=a[j]; добавить после min:=a[j]; t:=j; после этого будет массив сортироваться по возрастанию.
</span>
В RGB 256 цветов
256=2^8 --> 8 бит для одного пикселя (точки)
30*10*8=2400 бита = 300 байта <--- ответ
<span>V= T ×I × H × 1</span>
V-информационный объём
T-время
I-глубина кодирования
H-частота дискретизации
x1-т.к. звук моно
V=60*16*48*1=46080 бит
1 байт = 8 бит
1 Кбайт = 1024 байта
46080/8=5760 байт
5760/1024=5.625 Кбайт
