<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var x:=ArrRandom(ReadInteger('Введите размер массива->'),-5,5); x.Println;
var y:=x.Select(t->t<0?abs(t):t); y.Println;
Println('Произведение:',x.Where(t->t<>0).Aggregate((a,b)->a*b));
end.
Пример:
Введите размер массива-> 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384
14 000+ 600+ 90+3 = 14693
Полнота - сво-во, определяющее целостность и завершённость информации, а Актуальность - значимость и важность информации на данный момент. Так, например, может иметь место быть огромный и достоверный массив информации, в которой при этом никто не нуждается, и, соотв, она будет неактуальной. Также и наоборот, информация может затрагивать насущный, интересующий людей аспект, но при этом быть слишком поверхностной и нецелостной для полноценной передачи темы.
Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>