<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, -50, 50);
a.Println;
Writeln('Сумма нечетных значений равна ', a.Where(t -> t.IsOdd).Sum);
var n := ReadInteger('A=');
Print('Искомые индексы:');
a.Select((v, i)-> (v, i + 1)).Where(t -> t[0] > n)
.Select(t -> t[1]).Println;
n := ReadInteger('k=');
if a.Any(t -> t mod n = 0) then Println('Есть кратные')
else Println('Нет кратных')
end.
1) 85-7=78 семиклассников любят компьютерные игры
2) 60+56=116 общее число семиклассников, любящих компьютерные игры, плюс посчитанное второй раз число ребят с одинаковым удовольствием, играющих и в квесты, и в симуляторы.
3) 116-78=38 семиклассников с одинаковым удовольствием играют и в квесты, и в симуляторы.
Проверка:
1) 60-38=22 играют только в симуляторы
2) 56-38=18 играют только в квесты
3) 22+18+38=78 семиклассников любят компьютерные игры
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('n=');
var a:=ReadSeqReal('Вводите элементы последовательности',n);
Writeln('Удвоенная сумма положительных равна ',2*a.Where(x->x>0).Sum)
end.
Пример
n= 5
Вводите элементы последовательности -3 5.1 3.2 -2.6 0
Удвоенная сумма положительных равна 16.6
Program abc;
var i, b, c: integer;
var a: array [1..10] of integer;
Begin
for i:=1 to 10 do
begin
writeln ('Введите число');
readln (a[i]);
end;
for i:=1 to 10 do
begin
if a[i] mod 2=0 then a[i]:=a[i]^2 else a[i]:=a[i]*2;
writeln (a[i]);
end;
end.
Var m : array[1..10] of Integer; i,s,p,n : Integer;Begin s:=0; p:=1; n:=0; For i:=1 to 10 do Begin m[i]:=-100+Random(201); Inc(n,Ord(m[i]=0)); If m[i]>0 then s:=s+m[i]; If m[i]<0 then p:=p*m[i]; end; Writeln(s,' ',p,' ',n);end.