145 174 162 230 167 160 171 160 32 174 225 165 173 236 32 | 17: 165 225 220 224 255 169 32 228 160 224 220 227 170 • 136 32 162 165 164 165 224 170 168 32 225 32 170 224 160 25 170 160 172 10s 32 102 167259 171 160 46 e144 160 17310s 172 52 227 220 224 174 172 44 32 175 224 174 229 174 164 259 32 175 174 32 175 160 224 170 227 44 • 158 168 22 220 250 259 52 175 174 167 174 171 174 226 174 | 169 32 174 161 102 105 171 100 460

Объяснение:

В большинстве случаев, когда человек получает информацию, он также её обрабатывает и сохраняет

нюхая цветы получаю информацию в виде запаха, пробуя еду получаю информацию в виде вкуса, слушая лекцию получаю информацию, читая книгу получаю информацию, на мастер классах учусь новому

читаю книгу я также обрабатываю полученную информацию; слушаю лекцию я также обрабатываю полученную информацию; решая кроссворд я обрабатываю информацию, что бы решить вопрос; решая домашнее задание я обрабатываю задания; играя в игру я обрабатываю информацию, что бы делать какие-то действия.

Читая книгу я также и запоминаю прочитанное; слушаю лекцию я также запоминаю услышанное; нюхая цветы я запоминаю их запах; кушая еду я запоминаю её вкус; когда я учу стих, я запоминаю информацию

Рассказывая стих я передаю слушателям информацию; объясняя задачу я передаю информацию слушателям; общаясь с кем то я передаю информацию; уча брата говорить я передаю ему информацию; участвуя в опросе я передаю информацию

Program Massiv;
{$APPTYPE CONSOLE}
uses  SysUtils;

var  i: integer; // счетчик 
 a: array[1..10] of Integer; // объявляем массив из 10 целых элементов
begin
// Вводим элементы массива с клавиатуры 
for i:=1 to 10 do  // цикл  
begin     
  writeln('vvedite element massiva i nagmite >>ENTER');     
  write('a[',i,']=');     
  write(a[i]);     
  read(a[i])   
end; 
i:=1;
j:=0;// счетчик для поиска 3-го элемента 
  repeat 
    if a[i]<=0   
      then
        inc(i) // переходим к следующему элементу        
      else     
        begin       
          inc(j); // отмечаем найденный положительный элемент      
          inc(i)  // переходим к следующему элементу     
        end; 
   until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент
                                  // либо не проверен весь массив
 if j=3   
   then // есть как минимум три положительных элемента  в массиве      
     writeln('3 Pologitelniy element a[',i-1,']=', a[i-1])   
   else // в массиве меньше трех положительных элементов     
     writeln('Net 3 pologitelnogo eltmenta = ');
readln; 
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.