Каков информационный объект текста , содержащего слово информатика в 8-битной кодировке

Question

Информатика: Каков информационный объект текста , содержащего слово информатика в 8-битной кодировке

ладдщв · Accepted Answer

Uses  crt;const  nmax=100;var  a1,a2: array[1..nmax] of integer;  n,i,b,k,s: integer;begin  randomize;  clrscr;  repeat    write( Введите размер массива n (n in [1.. ,nmax, ]): );    readln(n);    write( Введите число B (0 B 100): );    readln(b);  until (n in [1..nmax]) and (b in [1..99]);  writeln( Массив A1 );  for i:=1 to n do  begin    a1[i]:=random(99);    write(a1[i]:4);    if a1[i] b then    begin      inc(k);      a2[k]:=i;      s:=s+a1[i];    end;  end;  writeln;  writeln( Среднее элеметов,...

MOGZ ответил