
Вопрос задан 07.09.2023 в 03:16.
Предмет Информатика.
Спрашивает Кобылинская Дарья.
В однородном массиве А из n элементов найти количество ненулевых элементов и уменьшить
положительные элементы на 20.

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

Отвечает Глобина Ксюша.
program zadacha;
var i,s: integer;
a: array [1..10] of integer;
begin
writeln ('Введите элементы массива');
for i:=1 to 10 do
begin
write ('a[',i,']=');
readln (a[i]);
if a[i]<>0 then s:=s+1;
if a[i]>0 then a[i]:=a[i]-20;
end;
writeln ('В массиве ',s,' не нулевых элемента');
for i:=1 to 10 do
write (a[i],' ');
end.
var i,s: integer;
a: array [1..10] of integer;
begin
writeln ('Введите элементы массива');
for i:=1 to 10 do
begin
write ('a[',i,']=');
readln (a[i]);
if a[i]<>0 then s:=s+1;
if a[i]>0 then a[i]:=a[i]-20;
end;
writeln ('В массиве ',s,' не нулевых элемента');
for i:=1 to 10 do
write (a[i],' ');
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для выполнения данной задачи вам потребуется пройти по всем элементам массива, подсчитать количество ненулевых элементов и уменьшить положительные элементы на 20. Вот как это можно сделать на псевдокоде:
python# Инициализируем переменную для подсчета ненулевых элементов
count_non_zero = 0
# Перебираем элементы массива A
for i in range(n):
# Проверяем, является ли элемент ненулевым
if A[i] != 0:
count_non_zero += 1
# Проверяем, является ли элемент положительным
if A[i] > 0:
# Уменьшаем положительный элемент на 20
A[i] -= 20
# Выводим количество ненулевых элементов
print("Количество ненулевых элементов:", count_non_zero)
Этот код пройдет по всем элементам массива A, подсчитает количество ненулевых элементов и уменьшит положительные элементы на 20. В конце работы кода вы получите количество ненулевых элементов в переменной count_non_zero
, а элементы массива A будут изменены в соответствии с условием задачи.


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