//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Begin
var ar:=ReadArrInteger(n);
writeln('Сумма положительных=',ar.Where(x -> x>0).sum);
writeln('Сумма сумма отрицательных=',ar.Where(x -> x<0).sum);
end.
Пример ввода:
1
-2
3
4
-5
-6
7
8
9
10
Пример вывода:
Сумма положительных=42
Сумма сумма отрицательных=-13
<em>// PascalABC.NET 3.2, сборка 1416 от 26.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k,b:integer; Read(k,b);
var a:=Range(1,120).Select(x->k*x+b).ToArray;
a.Println
end.
<span>Вроед как определяет количество позиций, отводимых в таблице полей</span>
Program znanija;
Var a : Integer;
Begin
Readln(a);
Case A of
1,3,5,7,8,10,12: Writeln('31');
11,4,6,9 : Writeln('30');
2 : Writeln('29');
else Writeln('0')
end;
<span>end.</span>
Функция нахождения индекса наименьшего элемента массива на языке Си:
int getMin(int* X, int size) {int i, m = 0;for(i = 0; i < size; ++i)if(X[i] < X[m]) m = i;return m;}
X - массив, size - размер массива