
Помогите с информатикой Задача 1. Дано число n, затем задаются n чисел. Посчитать количество
нулей среди них. Пример: 3 1 0 2 Программа должна вывести 1, тк среди n чисел встретился только 1 ноль Задача 2. Дано число n, затем задаются n чисел. Вывести максимальный элемент (обратите внимание, ровно такую же задачу мы разбирали на уроке, но с минимумом)

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

Ответ:
Задача 1
program z1;
var n,a,i,k:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if a = 0 then k:=k+1
end;
writeln('Количество нулей среди чисел: ',k)
end.
Задача 2
program z2;
var n,a,i,m:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if i = 1 then m:=a;
if a > m then m:=a
end;
writeln('Максимальное число среди чисел: ',m)
end.
или
program z2;
var n,i,m:integer;
a:array[1..100] of integer;
begin
write ('Введите количество чисел (n<=100): ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a[i]);
if i = 1 then m:=a[i];
if a[i] > m then m:=a[i]
end;
writeln('Максимальное число среди чисел: ',m)
end.



Конечно, я помогу вам написать программы для решения этих задач на языке программирования Python.
Задача 1: Подсчет количества нулей среди введенных чисел.
pythonn = int(input("Введите количество чисел: "))
count_zeros = 0
for i in range(n):
num = int(input("Введите число: "))
if num == 0:
count_zeros += 1
print("Количество нулей:", count_zeros)
Задача 2: Нахождение максимального элемента среди введенных чисел.
pythonn = int(input("Введите количество чисел: "))
if n > 0:
max_num = int(input("Введите число: "))
for i in range(1, n):
num = int(input("Введите число: "))
if num > max_num:
max_num = num
print("Максимальный элемент:", max_num)
else:
print("Нет чисел для сравнения.")
Вы можете скопировать и вставить каждую из этих программ в свою среду разработки Python и запустить для решения соответствующей задачи.


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







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