<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
Program qq;
Var a:array [1..5] of real;
I:integer;
Begin
Writeln('vvodi dannie');
For i:=1 to 5 do readln(a[i]);
Writeln;
For i:=1 to 5 do writeln(a[i]);
End.
Ответ: 7
Нy и мне нyжно написать 20 символов
Ответ: 32
Решение:
var arr: array [1..12] of real; s, tmp: real; element_id_1, element_id_2: integer;begin s:=0; for element_id_1:=1 to 12 do readln (arr[element_id_1]); for element_id_1:=1 to 12 do begin for element_id_2:=1 to element_id_1-1 do begin if arr[element_id_2]>arr[element_id_1] then begin tmp:=arr[element_id_2]; arr[element_id_2]:=arr[element_id_1]; arr[element_id_1]:=tmp; s:=s+1; end; end; end; writeln(s);end.
Кодs могут быть разные, если кодом является номер символа в алфавите с "Ё" - ответ будет 6 4 16 18 19 6 18 5 32 12