Ответ:
Евгений Валентинович Касперский
российский программист, один из ведущих мировых специалистов в сфере информационной безопасности
Объяснение:
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('Сумма элементов массива ',s.Sum);
Writeln('Произведение отрицательных элементов ',
s.Where(t->t<0).Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Количество положительных элементов ',
s.Where(t->t>0).Count)
end.
var a: integer;
begin
write('Введите двузначное число: ');
readln(a);
if (a mod 10 = 6) or (a div 10 = 6) then writeln('В его составе есть цифры кратные 6')
else writeln('В его составе нет цифр кратных 6')
end.
Var a:array[1..10] of real;
<span>i:integer; </span>
<span>begin </span>
<span>for i:=1 to 10 do begin </span>
<span>a[i]:=(2*i-1)/sin(i) </span>
<span>end; </span>
<span>a.Println </span>
<span>end.</span>