Са Бұрылыстар. 1-сабақ
«Тәуелсіз басқару» блогың пайдаланудың
ұсынылған нұсқаларын салыстыр және робот
өз осінің айналасында сағат тілімен немесе
сағат тіліне қарсы толық шеңбер жасайтын
блоктарды анықта.
Дұрыс жауап саны: 2

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.

Наверно в задании опечатка - работая с одним и тем же учебником, получает разное количество информации. Наверно так должно быть.
ответ:
Необходимо различать понятия информация и информативность. ·  Например       Содержит ли информацию учебник информатики 11 класс? (Да). ·        Для кого он будет информативным - для ученика 11 класса, 8 или 1 класса? (Для ученика 11 класса он будет информативным, так как в нем содержится новая и понятная ему информация, а для ученика 1 и 8  класса она информативной не будет, так как информация для него непонятна.)