Дана матрица 10х10. Заменить нулями максимум

@Bubela · Регистрация: 08.01.2009

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

@Puporev · 22.02.2009, 18:01

Заменить нулями максимум

Краткость иногда сестра таланта, но не в данном случае. Если максимум 1, то сколькими нолями его заменить?

@Bubela · 22.02.2009, 18:18 **[ТС]**

Т.е каждый максимальный элемент заменить на нуль

@Puporev · 22.02.2009, 18:35

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
uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j,max:integer;
begin
clrscr;
randomize;
writeln('Matrica A:');
max:=-maxint-1; {за максимум принимаем самое маленькое число типа integer, в данной программе можно ноль}
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(9)+1;{числа от 1 до 9}
        if a[i,j]>max then max:=a[i,j];{находим максимальное}
        write(a[i,j]:3);
      end;
    writeln;
  end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        if a[i,j]=max then a[i,j]:=0;{заменяем максимальные на ноль}
        write(a[i,j]:3);
      end;
    writeln;
  end;
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Согласованность транзакций в MongoDB Codd 30.04.2025 MongoDB, начинавшая свой путь как классическая NoSQL система с акцентом на гибкость и масштабируемость, сильно спрогрессировала, включив в свой арсенал поддержку транзакционной согласованности. Это. . .	Продвинутый ввод-вывод в Java: NIO, NIO.2 и асинхронный I/O Javaican 30.04.2025 Когда речь заходит о вводе-выводе в Java, классический пакет java. io долгие годы был единственным вариантом для разработчиков, но его ограничения становились всё очевиднее с ростом требований к. . .	Обнаружение объектов в реальном времени на Python с YOLO и OpenCV AI_Generated 29.04.2025 Компьютерное зрение — одна из самых динамично развивающихся областей искусственного интеллекта. В нашем мире, где визуальная информация стала доминирующим способом коммуникации, способность машин. . .	Эффективные парсеры и токенизаторы строк на C# UnmanagedCoder 29.04.2025 Обработка текстовых данных — частая задача в программировании, с которой сталкивается почти каждый разработчик. Парсеры и токенизаторы составляют основу множества современных приложений: от. . .	C++ в XXI веке - Эволюция языка и взгляд Бьярне Страуструпа bytestream 29.04.2025 C++ существует уже более 45 лет с момента его первоначальной концепции. Как и было задумано, он эволюционировал, отвечая на новые вызовы, но многие разработчики продолжают использовать C++ так, будто. . .
Слабые указатели в Go: управление памятью и предотвращение утечек ресурсов golander 29.04.2025 Управление памятью — один из краеугольных камней разработки высоконагруженных приложений. Го (Go) занимает уникальную нишу в этом вопросе, предоставляя разработчикам автоматическое управление памятью. . .	Разработка кастомных расширений для компилятора C++ NullReferenced 29.04.2025 Создание кастомных расширений для компиляторов C++ — инструмент оптимизации кода, внедрения новых языковых функций и автоматизации задач. Многие разработчики недооценивают гибкость современных. . .	Гайд по обработке исключений в C# stackOverflow 29.04.2025 Разработка надёжного программного обеспечения невозможна без грамотной обработки исключительных ситуаций. Любая программа, независимо от её размера и сложности, может столкнуться с непредвиденными. . .	Создаем RESTful API с Laravel Jason-Webb 28.04.2025 REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .	Дженерики в C# - продвинутые техники stackOverflow 28.04.2025 История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .

@Bubela 0 / 0 / 0 Регистрация: 08.01.2009 Сообщений: 5

	Дана матрица 10х10. Заменить нулями максимум 22.02.2009, 16:50. Показов 879. Ответов 3 Метки нет (Все метки) Дана матрица 10х10. Заменить нулями максимум 0

@Bubela 0 / 0 / 0 Регистрация: 08.01.2009 Сообщений: 5
	22.02.2009, 18:18 [ТС]
	Т.е каждый максимальный элемент заменить на нуль 0

Опции темы