
Помогите, помогите 1. Написать программу по нахождению максимального элемента массива; 2.
Написать программу по нахождению отрицательных, положительных и нулевых элементов массива

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

Program maximal;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,max:integer;
begin
readln(N);
max:=0;
for i:=1 to N do
begin
read(a[i]);
if max<a[i] then
max:=a[i];
end;
write(max);
end.
////////
2) Program B;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,z:integer;
begin
readln(N);
z:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i]>0 then
write(a[i],' ');
if a[i]=0 then
z:=z+1;
end;
writeln();
for i:=1 to N do
begin
if a[i]<0 then
write(a[i],' ');
end;
writeln();
for i:=1 to z do
write('0',' ')
end.



Конечно, я помогу вам написать программы по нахождению максимального элемента массива и по определению количества отрицательных, положительных и нулевых элементов массива на примере языка программирования Python. Для начала, давайте рассмотрим первую программу:
- Нахождение максимального элемента массива:
pythondef find_max_element(arr):
if len(arr) == 0:
return None # Возвращаем None, если массив пустой
max_element = arr[0]
for num in arr:
if num > max_element:
max_element = num
return max_element
# Пример использования функции:
array = [5, 2, 9, 1, 7, 3]
max_element = find_max_element(array)
print("Максимальный элемент в массиве:", max_element)
- Нахождение количества отрицательных, положительных и нулевых элементов массива:
pythondef count_elements(arr):
positive_count = 0
negative_count = 0
zero_count = 0
for num in arr:
if num > 0:
positive_count += 1
elif num < 0:
negative_count += 1
else:
zero_count += 1
return positive_count, negative_count, zero_count
# Пример использования функции:
array = [5, -2, 0, 1, -7, 3, 0]
positive, negative, zero = count_elements(array)
print("Количество положительных элементов:", positive)
print("Количество отрицательных элементов:", negative)
print("Количество нулевых элементов:", zero)
Вы можете использовать эти функции для своих массивов или изменить значения массивов в примерах, чтобы проверить работоспособность программ.


Похожие вопросы


Топ вопросов за вчера в категории Информатика







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