заменить максимальный элемент на произведение всех отрицательных элементов

@Shinigami · Регистрация: 21.01.2010

Author24 — интернет-сервис помощи студентам

В последовательности, состоящей из 5 чисел, заменить максимальный элемент на произведение всех отрицательных элементов. Нахождение позиции максимального элемента производится в процедуре, а произведение отрицательных элементов - в функции.

Добавлено через 55 минут
Никто не знает что ли?

@Puporev · 21.01.2010, 21:19

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt;
const n=5;
type mas=array[1..n] of integer;
procedure Nmax(v:mas; var imx:byte);
var i:byte;
begin
imx:=1;
for i:=1 to n do
if v[i]>v[imx] then imx:=i;
end;
function Proiz(v:mas;var k:byte):integer;
var i:byte;
    p:integer;
begin
p:=1;
k:=0;
for i:=1 to n do
if v[i]<0 then
 begin
  p:=p*v[i];
  k:=k+1;
 end;
Proiz:=p;
end;
var a:mas;
    i,imax,k:byte;
    p:integer;
begin
clrscr;
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
Nmax(a,imax);
writeln('Номер максимального=',imax);
p:=Proiz(a,k);
if k=0 then write('В масиве нет отрицательных чисел!')
else
  begin
   writeln('Произведение отрицательных=',p);
   a[imax]:=p;
   writeln('Замена:');
   for i:=1 to n do
   write(a[i],' ');
  end;
readln
end.

@Shinigami · 21.01.2010, 22:17 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .

@Shinigami 0 / 0 / 0 Регистрация: 21.01.2010 Сообщений: 20

	заменить максимальный элемент на произведение всех отрицательных элементов 21.01.2010, 20:45. Показов 1349. Ответов 2 Метки нет (Все метки) В последовательности, состоящей из 5 чисел, заменить максимальный элемент на произведение всех отрицательных элементов. Нахождение позиции максимального элемента производится в процедуре, а произведение отрицательных элементов - в функции. Добавлено через 55 минут Никто не знает что ли? 0

@Shinigami 0 / 0 / 0 Регистрация: 21.01.2010 Сообщений: 20
	21.01.2010, 22:17 [ТС]
	Спасибо 0

Опции темы

заменить максимальный элемент на произведение всех отрицательных элементов

Решение