1) 2 * 256 = 512 символов всего на 2 страницах
2) 1/16 Кб * 1024 = 64 байта * 8 = 512 бит - объем сообщения
3) 512 бит / 512 симв = 1 бит - глубина кодирования 1 символа
4) N = 2^i
N = 2^1 = 2 символа - мощность используемого алфавита
#include <iostream>
using namespace std;
int main()
{
int res=0,a[100],n;
cout<<"Input N"<<endl;
cin>>n;
cout<<"Input elements."<<endl;
for (int i=0;i<n;i++)
cin>>a[i];
for (int i=0;i<n-1;i++)
if (((a[i]>=0) && (a[i+1]<0)) || ((a[i]<0) && (a[i+1]>=0)))
res+=1;
cout<<res;
return 0;
}<span>
</span>
Var
S : String;
i : Byte;
Begin
Readln(S);
For i:=1 to Length(S) do
If S[i]='о' then S[i]:='а' else
If S[i]='а' then S[i]:='о';
Writeln(S);
end.
Const n=5; m=6;
var x:array[1..n,1..m] of integer;
k:array[1..m] of integer;
i,j,k0:integer;
begin
Randomize;
For i:=1 to n do begin
for j:=1 to m do begin
x[i,j]:=Random(20)-10;
write(x[i,j]:4);
end;
writeln;
end;
for j:=1 to m do begin
k0:=0;
for i:=1 to n do if x[i,j]<0 then k0:=k0+1;
k[j]:=k0;
end;
writeln('Количество отрицательных элементов в столбцах:');
for j:=1 to m do write(k[j]:4);
writeln;
<span>end.</span>
1. Короткое современное решение
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=SeqRandom(n,1000, 100000);
var b:=a.Select(x->x/1000).ToArray; b.Println;
Writeln('П=',b.Aggregate(1.0,(p,q)->p*q));
Writeln('Max=',b.Max)
end.
<u>Пример</u>
n= 10
64.006 47.819 87.225 6.856 32.112 93.963 11.053 50.93 18.959 14.785
П=871460676775803
Max=93.963
2. А так (примерно) учат в большинстве школ
const
nn=1000; // предел для кол-ва элементов
var
n,i:integer;
a:array[1..nn] of real;
max,p:real;
begin
Write('n='); Read(n);
p:=1;
max:=0; // меньше меньшего
for i:=1 to n do
begin
a[i]:=(Random(99001)+1)/1000;
Write(a[i],' ');
p:=p*a[i];
if a[i]>max then max:=a[i]
end;
Writeln;
Writeln('П=',p);
Writeln('Max=',max)
end.
