Найти минимальный элемент массива и его значение заменить суммой всех предшествующих ему элементов

@J0n1cK · Регистрация: 07.03.2009

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

найти мин элемент массива и его значение заменить суммой всех предшествующих ему элементов, вывести новый массив на экран! массив из 50 чисел.

@Monte-Cristo · 07.03.2009, 17:39

C++
1
2
3
4
5
6
7
8
9
10
int mas[50];
int min=0;
 
for (int i=0; i<50; i++)
{
if (mas[min] > mas[i]) min=i;
}
 
for (int i=0; i<min; i++)
cout << mas[i];

@Викдон · 07.03.2009, 17:42

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
Const N=50;
var Mas:array[1..N] of integer;
    i:integer;
    min,num,Sum:integer;
begin
Randomize;
  for i:=1 to N do
   Mas[i]:=Random(100);
 
  writeln('ISHODNII MASSIV:');
   for i:=1 to N do
    write(mas[i],' ');
   writeln;
 
   min:=Mas[1];
   num:=1;
 
   for i:=1 to N do
     if min>Mas[i] then
      begin
       min:=Mas[i];
       num:=i;
      end;
 
 
    Sum:=0;
   for i:=1 to num-1 do
    Sum:=Sum+Mas[i];
 
   writeln('Min elements: ',min,'  number min element: ',num);
   writeln('Result: ',Sum);
   Mas[num]:=Sum;
     
  writeln('Itogovii massiv:');
   for i:=1 to N do
    write(mas[i],' ');
 
 
readln;
end.

@J0n1cK · 07.03.2009, 17:43 **[ТС]**

[QUOTE=Don Corleone;112933][CPP]
int mas[50];
int min=0;

for (int i=0; i<50; i++)
{
if (mas[min] > mas[i]) min=i;
}

for (int i=0; i<min; i++)
cout << mas[i];

прости конечно, это что за У-Ж-А-С такой - это заработает ? на языке паскаль ?

@Викдон · 07.03.2009, 17:44

Это написано на С++ было...видимо перепутал он)

@J0n1cK · 07.03.2009, 17:44 **[ТС]**

Викдон,

СПАСИБО ДРУГ!

@Monte-Cristo · 07.03.2009, 17:46

Сообщение от Викдон

Это написано на С++ было...видимо перепутал он)

ага) пардон... лоханулся малеха

@Puporev · 07.03.2009, 17:48

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
uses crt;
const n=50;
var a:array[1..n] of integer;
    i,min,imin,sum:integer;
begin
clrscr;
randomize;
writeln('Massiv:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
min:=a[1];imin:=1;
for i:=1 to n do
if a[i]<min then
   begin
     min:=a[i];{находим минимум}
     imin:=i;{его номер}
   end;
   writeln;
   writeln('Min element=',min,'  ego nomer=',imin);
   writeln;
sum:=0;
for i:=1 to imin-1 do{от 1 до элемента перед минимальным}
sum:=sum+a[i];{считаем сумму}
a[imin]:=sum;{записываем ее вместо минимального}
writeln('Rezultat:');
for i:=1 to n do
write(a[i],' ');
readln
end.

@J0n1cK · 07.03.2009, 18:01 **[ТС]**

Сообщение от Don Corleone

ага) пардон... лоханулся малеха

прости конечно, спасибо за труд!
но задача немного не в этом, задача в том что первый массив я ввожу с клавиатуры, а
потом нахожу мин элемент массива, нахожу сумму все предшествующих ему элементов, потом заменю значение этого "мин элемента" на сумму.

дальше вовожу уже другой массив на печать.

@Викдон · 07.03.2009, 18:21

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
Const N=50;
var Mas:array[1..N] of integer;
    i:integer;
    min,num,Sum:integer;
begin
Randomize;
  for i:=1 to N do
    begin
      write('Input ',i,' element: ');
      Readln(Mas[i]);
    end;
 
 
 
   min:=Mas[1];
   num:=1;
 
   for i:=1 to N do
     if min>Mas[i] then
      begin
       min:=Mas[i];
       num:=i;
      end;
 
 
    Sum:=0;
   for i:=1 to num-1 do
    Sum:=Sum+Mas[i];
   
   Mas[num]:=Sum;
 
   writeln('Min elements: ',min,'  number min element: ',num);
   
    for i:=1 to N do
    begin
      write(Mas[i],' ');
      
    end;
 
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@J0n1cK 1 / 1 / 0 Регистрация: 07.03.2009 Сообщений: 24

	Найти минимальный элемент массива и его значение заменить суммой всех предшествующих ему элементов 07.03.2009, 17:17. Показов 4528. Ответов 9 Метки нет (Все метки) найти мин элемент массива и его значение заменить суммой всех предшествующих ему элементов, вывести новый массив на экран! массив из 50 чисел. 0

@J0n1cK 1 / 1 / 0 Регистрация: 07.03.2009 Сообщений: 24
	07.03.2009, 17:43 [ТС]
	[QUOTE=Don Corleone;112933][CPP] int mas[50]; int min=0; for (int i=0; i<50; i++) { if (mas[min] > mas[i]) min=i; } for (int i=0; i<min; i++) cout << mas[i]; прости конечно, это что за У-Ж-А-С такой - это заработает ? на языке паскаль ? 0

@Викдон 67 / 67 / 24 Регистрация: 21.11.2008 Сообщений: 226
	07.03.2009, 17:44
	Это написано на С++ было...видимо перепутал он) 0

@J0n1cK 1 / 1 / 0 Регистрация: 07.03.2009 Сообщений: 24
	07.03.2009, 17:44 [ТС]
	Викдон, СПАСИБО ДРУГ! 0