3. Определите информационный объем символов, если мощность алфавита составляет 32 буквы. 5 7 4 2
Ответы на вопрос:
program t1;
var
i, j: integer;
mas: array [1..10] of integer;
begin
randomize;
writeln ('сгенерированный масив: ');
for i : = 1 to 10 do
begin
mas[i] : = random (100) - 50;
write (mas[i]);
end;
begin
for j: =1 to 9 do
for i: =1 to 9-j do
if m[i] < m[i+1] then
swap(mas[i],mas[i+1])
end;
writeln
for i : = 1 to 10 do write (mas[i]);
end;
end. program z1;
uses crt;
var i, n: integer;
a: array[1..10000] of integer;
begin
clrscr;
randomize;
write(' размер =' ); readln(n);
for i: =1 to n do
begin
a[i]: =random(46))+1;
write(a[i], ' ' );
end;
for i: =n downto 1 do
write(a[i],' ');
readkey;
end.
program z2;
uses crt;
var i, n, r: integer;
a: array[1.. 10000] of integer;
begin
clrscr;
randomize;
write
readln(n);
for i: =1 to n do
begin
a[i]: =random(45)-22;
write(a[i],' ');
end;
i: =1;
while i< =n-1 do
begin
r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r;
inc(i,2);
end;
for i: =1 to n do
write(a[i],' ');
readkey;
end.
3.
program z3;
uses crt;
var i,n,r,max,min,imax,imin: integer;
a: array[1..10000] of integer;
begin
clrscr;
randomize;
write('число элементов n= ');
readln(n);
for i: =1 to n do
begin
a[i]: =random(45)-22;
write(a[i],' ');
end;
min: =a[1]; max: =a[1];
for i: =1 to n do
begin
if a[i]< =min then
begin
min: =a[i]; imin: =i;
end;
max: =a[i]; imax: =i;
end;
end;
readkey;
end.
program z4;
const n=10;
type mas=fray [1..n] of integer;
var a: mas;
i: integer;
s: integer;
begin
randomize;
for i: =l to n do
begin
a[i]: =-100+random(201);
write(a[i]: 5)
end;
writeln;
s: =0;
if a[i]> 0 then
s: =s+a[i];
writel
readln
end.
program z5;
uses crt;
var i,k,,r: integer;
a: array[1..10000] of integer;
begin
clrscr;
randomize;
write(' число элемен. п='); readln(n);
for i: =1 to n do
begin
a[i]: =random(45)-22;
write(a[i], ' ');
{проверяем на четность и считаем количество четных элементов.}
if a[i] mod 2=0 then inc(k, 1);
end;
write('k= ',k);
readkey
end.
Популярно: Информатика
-
xandar81515.09.2020 13:16
-
MogekoKcalb07.07.2020 15:15
-
yaps6126.09.2022 18:12
-
sashademidova1234509.06.2022 03:43
-
alinkamomot200420.11.2021 13:41
-
glupostsroghdeniy16.02.2022 09:14
-
yuliaprok61yulia120602.06.2022 02:36
-
erra133705.07.2020 06:45
-
Аня1ove16.12.2022 23:22
-
коршун403.08.2021 10:16