с информатикой Задача 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.