В заданном одномерном массиве заменить максимальный элемент нулём

@марьяша · Регистрация: 07.11.2010

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

В заданном одном. массиве заменить максимальный элемент нулем))

@DareDeviL · 29.11.2010, 20:23

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
55
56
57
58
59
60
61
62
63
64
65
program xd;
uses crt;
var
 a:array[1..100,1..100] of byte;
 c,max,i_max,j_max,n,i,j:integer;
 sum:integer;
begin
clrscr;
randomize;
repeat
 writeln('vvedite razmer massiva   ');
 {$I-}
 readln(n);
 {$I+}
until (IOResult=0) and (n>1);
 for i:=1 to n do
 for j:=1 to n do
  begin
repeat
  write('a[',i,',',j,']= ');
{$I-}
  readln(a[i,j]);
{$I+}
until (IOResult=0) and (n>1);
  end;
  clrscr;
  for i:=1 to n do
  begin
  for j:=1 to n do
  begin
  if j=n then writeln(a[i,j]:5)
  else write(a[i,j]:5);
end;
  end;
  max:=a[1,1];
  i_max:=1;
  j_max:=1;
  for i:=1 to n do
   for j:=1 to n do
    if (i>j-1) and (a[i,j]>max) then
     begin
      max:=a[i,j];
      i_max:=i;
      j_max:=j;
      end;
      write('maksimalnii element ',max);
      readln;
       for i:=1 to n do
        for j:=1 to n do
         begin
         if a[i,j]=max then
         a[i,j]:=0;
         end;
         writeln;
         for i:=1 to n do
         for j:=1 to n do
          begin
          if j=n then
          writeln(a[i,j]:5)
          else
          write(a[i,j]:5);
          end;
          readln;
  readkey;
end.

@neske · 29.11.2010, 20:30

DareDeviL, что-то у вас слишком намудернно все.

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
uses crt;
const size=5;
      mas : array [1..size] of integer=(1,7,4,3,2);
var max, index, i : integer;
 
begin
clrscr;
writeln ('Matrix: ');
for i:=1 to size do
  write (mas[i], ' ');
writeln;
 
max:=0;
for i:=1 to size do
  if mas[i]>max then
    begin
      max:=mas[i];
      index:=i;
    end;
 
mas[index]:=0;
 
writeln ('Finish: ');
for i:=1 to size do
  write (mas[i], ' ');
writeln;
 
readkey;
end.

@DareDeviL · 29.11.2010, 20:32

как есть)

@SuPeR XaKer · 06.12.2010, 18:20

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
Uses
 crt;
var
 a:array[1..100] of integer;
 i,j,n,max,imax:integer;
begin
write('N: ');
readln(n);
max:=a[1];
imax:=1;
randomize;
for i:= 1 to n do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
  if a[i]>max then
  begin
   max:=a[i];
   imax:=i;
  end;
end;
writeln;
write('MAX[',imax,']:=',max);
writeln;
for i:= 1 to n do
begin
if i=imax then
a[i]:=0;
 write(a[i]:3);
end;
readln
end.

@Dekio · 06.12.2010, 18:26

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Dekio;
const
n=20;
var
mas :array[1..n] of integer;
i,max :integer;
begin
randomize;
max:=1;
for i:=1 to n do
begin
mas[i]:=random(30)-5;
write(mas[i],' ');
if mas[i] > mas[max] then
max:=i;
end;
mas[max]:=0;
writeln;
for i:=1 to n do
write(mas[i],' ');
end.

Добавлено через 3 минуты
без random

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Dekio;
const
n=20;
var
mas :array[1..n] of integer;
i,max :integer;
begin
max:=1;
writeln('Введите массив');
for i:=1 to n do
readln(mas[i]);
for i:=1 to n do
begin
write(mas[i],' ');
if mas[i] > mas[max] then
max:=i;
end;
mas[max]:=0;
writeln;
for i:=1 to n do
write(mas[i],' ');
end.

@марьяша · 06.12.2010, 18:28 **[ТС]**

спасибо Вам большое)хороший Вы человек)

@марьяша · 07.12.2010, 20:27 **[ТС]**

в заданном одномерном массиве нужно максимальный элемент заменить нулем и вывести на экран полученый массив.
программа работает,но заменяет нулем не максимальное значение,а всегда последнее...что делать?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
n=5;
var
a:array[1..n] of integer;
i,max :integer;
begin
max:=1;
writeln('Введите массив');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
writeln(a[i],' ');
if a[i] > max then
max:=a[i];
end;
a[i]:=0;
writeln;
for i:=1 to n do
write(a[i],' ');
end.

@Dekio · 07.12.2010, 20:31

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Dekio;
const
n=5;
var
a:array[1..n] of integer;
i,max :integer;
begin
max:=1;
writeln('Введите массив');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
write(a[i],' ');
if a[i] > a[max] then
max:=i;
end;
a[max]:=0;
writeln;
for i:=1 to n do
write(a[i],' ');
end.

@Shelovek · 07.12.2010, 20:34

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
uses
    crt;
const
n=5;
var
a:array[1..n] of integer;
i,max,maxi:integer;
begin
     writeln('Ââåäèòå ìàññèâ');
     for i:=1 to n do
         read(a[i]);
     max:=a[1];
     maxi:=1;
     for i:=1 to n do
          if a[i] > max then
             begin
             max:=a[i];
             maxi:=i;
             end;
a[maxi]:=0;
writeln;
for i:=1 to n do
write(a[i],' ');
readkey
end.

@Dekio · 07.12.2010, 20:37

Shelovek, и зачем переменная max если она не используется?

@марьяша · 07.12.2010, 20:38 **[ТС]**

Dekio,
не получается...если я ввожу 1 2 7 3 4,у меня же должно выйти 1 2 0 3 4 ))так ведь?а выходит 1 2 7 3 0)вот в чем проблема то!

@Dekio · 07.12.2010, 20:41

все норм пашет, проблема с вашей стороны

@jonni · 07.12.2010, 20:42

марьяша, используйте алгоритм товарища Shelovek, он функционален
Ваш алгориитм Dekio, не допускает возможности массива отрицательных элементов

@Shelovek · 07.12.2010, 20:44

как не используеться еще как используеться с помощью max мы находим индекс максимального елемнта

@SuPeR XaKer · 07.12.2010, 20:45

Не по теме:

Где то я уже темы две таких видел.

@марьяша · 07.12.2010, 20:46 **[ТС]**

Shelovek,
а чем можно заменить a[maxi]?просто мне сказали,что такой записи быть не может!можно писать только a[i])

@Dekio · 07.12.2010, 20:46

с помощью maxi:=i; находим индекс.
max не используеться

@jonni · 07.12.2010, 20:48

Сообщение от Dekio

max не используеться

Строки 12 и 17 например

@Dekio · 07.12.2010, 20:49

писать только a[i]

вместо a[maxi]:=0;
напишите
i:=maxi;
a[i]:=0;

где вывод выводите a[i];

Добавлено через 54 секунды
jonni, и что с того? где вывод переменной? если ее убрать ничего не измениться

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@марьяша 1 / 1 / 0 Регистрация: 07.11.2010 Сообщений: 25

	В заданном одномерном массиве заменить максимальный элемент нулём 29.11.2010, 15:41. Показов 4910. Ответов 23 Метки нет (Все метки) В заданном одном. массиве заменить максимальный элемент нулем)) 0

@DareDeviL 2 / 2 / 1 Регистрация: 21.11.2010 Сообщений: 43
	29.11.2010, 20:32
	как есть) 0

@марьяша 1 / 1 / 0 Регистрация: 07.11.2010 Сообщений: 25
	06.12.2010, 18:28 [ТС]
	спасибо Вам большое)хороший Вы человек) 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	07.12.2010, 20:37
	Shelovek, и зачем переменная max если она не используется? 0

@марьяша 1 / 1 / 0 Регистрация: 07.11.2010 Сообщений: 25
	07.12.2010, 20:38 [ТС]
	Dekio, не получается...если я ввожу 1 2 7 3 4,у меня же должно выйти 1 2 0 3 4 ))так ведь?а выходит 1 2 7 3 0)вот в чем проблема то! 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	07.12.2010, 20:41
	все норм пашет, проблема с вашей стороны 0

@jonni 119 / 119 / 25 Регистрация: 03.03.2010 Сообщений: 436
	07.12.2010, 20:42
	марьяша, используйте алгоритм товарища Shelovek, он функционален Ваш алгориитм Dekio, не допускает возможности массива отрицательных элементов 0

@Shelovek 66 / 66 / 33 Регистрация: 25.05.2010 Сообщений: 176
	07.12.2010, 20:44
	как не используеться еще как используеться с помощью max мы находим индекс максимального елемнта 0

@SuPeR XaKer
	07.12.2010, 20:45
	Не по теме: Где то я уже темы две таких видел. 0

@марьяша 1 / 1 / 0 Регистрация: 07.11.2010 Сообщений: 25
	07.12.2010, 20:46 [ТС]
	Shelovek, а чем можно заменить a[maxi]?просто мне сказали,что такой записи быть не может!можно писать только a[i]) 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	07.12.2010, 20:46
	с помощью maxi:=i; находим индекс. max не используеться 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	07.12.2010, 20:49
	писать только a[i] вместо a[maxi]:=0; напишите i:=maxi; a[i]:=0; где вывод выводите a[i]; Добавлено через 54 секунды jonni, и что с того? где вывод переменной? если ее убрать ничего не измениться 0