PascalABC.NET 3.4
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 0, 2); a.Println;
var (k, km) := (0, 0);
for var i := 0 to n-1 do
if a[i] = 0 then
if k = 0 then k := 1
else k += 1
else
begin
if k > km then km := k;
k := 0
end;
Writeln('Максимальное количество нулей подряд равно ',km)
end.
Классификация на русском языке: Части речи: (самостоятельные, служебные, междометия), звуки: (твёрдые, мягкие).
Суффиксы: (действительные, страдательные)
Классификация на географии: Мировой океан: (Воды суши, вода в атмосфере, вода в живых организмах), воды суши: (реки, озёры, каналы).
Классификация на математике: Уравнения: (простые, сложные), числа :(двухзначные и однозначные).
Классификация на биологии: Вегетативные органы растений: (корень, побег), строение цветка: (чашеложе, лепестки, пестик, тычинка)
42 = 32+8+2
то есть состоит оно из 2в пятой степени + 2 в третьей + 2 в первой
значит единицы надо ставить во второй (первая степень двоек), четвертый (третья степень двоек) и шестой (пятая степень двоек) разряды
Это писаться будет так:
101010
Ура!)
Const m=10;
var
a:array[1..m] of integer;
i,sum,proz:integer;
begin
sum:=0;
proz:=1;
for i:=1 to m do
begin
read(a[i]);
if a[i]>0 then
sum:=sum+a[i]
else
ifa[i]<0 then
proz:=proz*a[i];
end;
writeln('Сумма положительных чисел= ',sum,' Произведение отрицательных чисел= ',proz);<span>end.</span>