
Дан массив из 20 элементов. Из исходного массива сформировать другой массив заменой нулевых
элементов (если они есть) значениями, равными максимальному элементу. В Паскале

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

# python 3+
import random # importing preinstalled library, named "random "
obj = [random.randint(0, 10) for i in range(20)] # obj is list, that getenerated use "generator". we do action "random.randint(0, 10)" 20 times, and write it in list "obj"
max_int = max(obj) # value max_int = hightest int in list named "obj"
for element in obj: # for each element in list named "obj" (element is name, that you can give)
if element == 0: # if element (user value, it can named like "a") = 0
element = max_int # element = hightest int in obj
print(obj) # give you a list of changed element in given list



это можно сделать следующим образом:
1. Найти максимальный элемент в исходном массиве. 2. Пройти по исходному массиву и заменить нулевые элементы на значение максимального элемента.
Пример кода на Паскале:
```pascal program ReplaceZerosWithMax;
const n = 20;
var arr: array[1..n] of integer; i, maxElement: integer;
begin // заполнение исходного массива случайными числами randomize; for i := 1 to n do begin arr[i] := random(100); // заполнение случайными числами от 0 до 99 write(arr[i], ' '); end; writeln;
// поиск максимального элемента maxElement := arr[1]; for i := 2 to n do begin if arr[i] > maxElement then maxElement := arr[i]; end;
// замена нулевых элементов на максимальный элемент for i := 1 to n do begin if arr[i] = 0 then arr[i] := maxElement; write(arr[i], ' '); end; end. ```
Этот код создает массив из 20 элементов, заполняет его случайными числами, находит максимальный элемент и заменяет нулевые элементы на значение максимального элемента.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili