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.
Вот задача. Выводит номер элемента массива и само значение.
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(7);
Write('Произведение четных: ',
a.Where(x->x.IsEven).Aggregate(1.0,(x,y)->x*y),
', количество нечетных: ',a.Where(x->x.IsOdd).Count)
end.
<u>Пример</u>
-15 8 42 11 95 118 -27
Произведение четных: 39648, количество нечетных: 4
у квадрата все стороны равны.
сумма углов треугольника равна 180 градусам.
1.Антивирус
2.Интернет
3.Архивация
4.Клавиатура
5.Процессор
по вертикально - ВИРУС