Модифицировать программу. нужно сделать так чтобы программа еще находила номер последней пары элементов массива с разными знаками) program first; uses crt; const n=1000; var a: array[0..n] of integer; i,k,z,s,r,p: integer; begin clrscr; randomize; print('введите количество элементов массива: '); readln(r); println('значение элементов массива'); for i: =1 to r do begin a[i]: =random(10)-3; write(a[i]: 3); end; println(); println('введите число а'); read(z); s: =0; k: =0; p: =1; for i: =1 to r do begin if a[i] < 0 then s: =s+a[i]; if (a[i] > 0) and (a[i] < z ) then k: =k+1; end; for i : = 1 to n-1 do if a[i]*a[i+1]< 0 then p : = i; if p> 0 then writeln('номер последней пары соседних элементов с разными знаками: ', p) else writeln('массив не содержит элементов с разными знаками'); print(s); print(k); end.

250

401

Посмотреть ответы 2

Ответы на вопрос:

mmmm0

Информатика

4,5(83 оценок)

Program first; uses crt; const n=1000; var a: array[0..n] of integer; i,k,z,s,r,p: integer; begin clrscr; randomize; print('введите количество элементов массива: '); readln(r); println('значение элементов массива'); for i: =1 to r do begin a[i]: =random(10)-3; write(a[i]: 3) end; println(); { начало блока вычисления s - суммы отрицательных элементов и k - количество положительных, меньших заданного z (число "а") } print('введите число а: '); read(z); s: =0; k: =0; for i: =1 to r do begin if a[i] < 0 then s: =s+a[i]; if (a[i] > 0) and (a[i] < z ) then k: =k+1 end; writeln('сумма отрицательных элементов ',s); writeln('количество положительных элементов, меньших заданного ',k); { конец блока } { начало блока нахождения номера последней пары соседних элементов с разными знаками } p: =1; for i : = 1 to n-1 do if a[i]*a[i+1]< 0 then p : = i; if p> 0 then writeln('номер последней пары соседних элементов с разными знаками: ', p) else writeln('массив не содержит элементов с разными знаками'); { конец блока } end. пример введите количество элементов массива: 12 значение элементов массива 5 5 -1 -2 -1 3 0 -3 4 -1 6 5 введите число а: 6 сумма отрицательных элементов -8 количество положительных элементов, меньших заданного 5 номер последней пары соседних элементов с разными знаками: 10

LOL12411111

Информатика

4,7(24 оценок)

3*8*600*1200=17280000бит=2160000байт=2109,375кбайт=2,05мбайт

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.