Var ma:array of array of integer;
ar:array of integer;
i,k,j,n,m:integer;
begin;
randomize;
readln(n);
readln(m);
k:=0;
setlength(ar,m+1);
setlength(ma,n+1);
for i:=1 to n do
setlength(ma[i],m+1);
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to m do
begin;
ma[i,j]:=random(21)-10;
write(ma[i,j]:4);
end;
end;
for i:=1 to m do
begin;
for j:=1 to n do
if ma[j,i]>0 then inc(k);
ar[i]:=k;
k:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to m do
write(ar[i]:4);
<span>end.</span>
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
setlocale(LC_ALL,"Russian");
cin >> n;
if ( n > 0 )
cout << "Положительное\n";
else
cout << "Отрицательное\n";
n = abs(n);
int ans = 0;
while (n)
{
n /= 10;
ans++;
}
cout << ans << " цифр\n";
}
<span>var a:array [1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(50);
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln ('summa=',s);
readln;
end.</span>
512*512*256=67108864 бит
67108864 / 8=8388608 байт
8388608/1024=8192 Килобайт
8192/1024= 8 Мегабайт