Var
max, count, i: integer;
a: array [1..30] of integer;
begin
max := 0;
count := 0;
for i := 1 to 30 do
read(a[i]);
for i := 1 to 30 do
begin
if a[i] < 0 then
inc(count)
else
begin
if max < count then
max := count;
count := 0;
end;
end;
if max < count then
max := count;
writeln(max);
<span>end.</span>
1. Геометрическое представление функции - график
2. Несколько предложений, связанных по смыслу - текст
3. Набор цифр - число
4. Колебания воздуха, воспринимаемые ухом - звук
Из букв в выделенных клетках собери слово "ВКУС". Какую информацию оно отражает?
<span>3) вкусовую</span>
Ответ:
модель «Homo economicus».
Модель «советский экономический человек»
Объяснение: