У ученика 9б класса Ярослава есть массив с оценками четверть, всего 15 предметов. Вычислите количество 5 и 4.(массив заполняется случайными числами)(Pascal)

Компьютеры, телефоны, мониторы. Без этой техники уже трудно представить жизнь. Исследования учёных влияния компьютерных излучений на здоровье привели в волнение офтальмологов, косметологов, дерматологов и ортопедов. Доктора подтверждают снижение остроты зрения, увеличение веса, ускорение старения кожи лица

Исследования учёных

Западными учёными несколько лет проводились наблюдения изменения кожи лица у двух групп женщин. Одна группа работала за компьютером весь день, другая – время от времени. Отмечено, что у первой группы признаки старения и дряхлости лица появились раньше.

Кожа потеряла эластичность, щёки обвисли, лицо потеряло контур, заметных морщин стало больше, некоторые дамы обзавелись вторым подбородком.

Причина неприятностей – в электростатическом поле, которое создаётся вокруг экрана и сушит воздух. Ещё одна причина – микрочастицы, оседающие и загрязняющие лицо. Глаза краснеют, появляется раздражение и воспаление.



Последствия:

· иссушение кожных покровов;

· расширение и забитость пор;

· излишняя жирность кожи;

· глаза окружены морщинистой сеточкой;

· сухие веки;

· расширенные сосуды на щеках;

· появление второго подбородка;

· мимические морщины.

Исследователями предлагаются профилактические меры, предотвращающие влияние вредных излучений

Var a:array [1..10, 1..10] of integer;
       i, j, max, min, imin, imax, jmin, jmax:integer;
begin 
   imax:=0; imin:=0; jmax:=0; jmin:=0; 
   max:=-maxint;  min:=maxint; 
   for i:=1 to 10 do   
      begin   
         for j:=1 to 10 do     
            begin     
            a[i,j]:=random(89)+10;     
            write(a[i,j],' ');     
            if a[i,j]<min then        
               begin        
                    min:=a[i,j];        
                    imin:=i;        
                    jmin:=j;        
               end;     
               if a[i,j]>max then        
                  begin        
                       max:=a[i,j];        
                       imax:=i;        
                       jmax:=j;        
                  end;     
               end;     
               writeln;     
            end;
   writeln;
   writeln('Максимальный элемент:',max);
   writeln('Его индекс ',imax,' ',jmax);
   writeln('Минимальный элемент:',min);
   writeln('Его индекс ',imin,' ',jmin);
end.