Const
<span>n=3; </span>
<span>var a:array[1..n, 1..n] of integer; </span>
<span>i,j,s:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>writeln('Введите элементы матрицы'); </span>
<span>for i:=1 to n do </span>
<span>for j:=1 to n do begin </span>
<span>read(a[i,j]); </span>
<span>if i<j then s:=s+a[i,j]; </span>
<span>end; </span>
<span>writeln; </span>
<span>for i:=1 to n do begin </span>
<span>for j:=1 to n do write(a[i,j], ' '); </span>
<span>writeln; </span>
<span>end; </span>
<span>writeln('Сумма всех элементов над главной диагональю = ',s); </span>
<span>end.</span>
a=(B1) =EXP(-B2)
b=(B2) 2,15
c=(B3) =КОРЕНЬ(1+(LN(B1)^2+LN(B2))^2)
y=(B4) =SIN((0,5*B3)^2)^3
С++
#include<iostream>
using namespace std;
int main()
{
<span> int n;
</span><span> int s=0;
</span><span> cout<<"Enter n"<<endl;
</span><span> cin>>n;
</span><span> cout<<"Enter elements"<<endl;
</span><span> int *a=new int [n];
</span><span> for (int i=0;i<n;i++)</span><span>
{</span><span>
cin>>a[i];</span><span>
if (a[i]<0)</span><span>
s=s+1;</span><span>
}</span><span>
cout<<s<<endl;
</span><span> delete []a;
</span><span> return 0;
</span><span>}</span>
ШАЛТАЙ–БАЛТАЙ
Шалтай–Балтай
<span>Сидел на стене.</span>
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var c := ReadlnString('Введите дату в формате чч.мм.гг:');
var d: DateTime;
if DateTime.TryParse(c, d) then
begin
d := d.AddDays(-1);
$'{d:dd.MM.yy}'.Println
end
else Println('Вы ошиблись при вводе')
end.