uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.
Формула количества информации
<span>N-кол-во цветов, i-кол-во бит на одну точку</span>
Var s,s1:string;
i:integer;
begin;
readln(s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(s1);
<span>end.</span>
#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span>int disp(int n,int m) {
<span> if (n>1) return disp(n-1,m)*(m-n+1);
</span><span> return m;
</span><span>}
</span>int main() {
<span> int n,m;
</span><span> do {
</span><span> cout<<"m = "; cin>>m;
</span><span> cout<<"n = "; cin>>n;
</span><span> if (n>m) cout<<"invalid input"<<endl;
</span><span> }
</span><span> while (m>=n);
</span><span> cout<<disp(n,m)<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
m = 5
n = 2
20
m = 6
n = 3
120
</span>