Дан массив целых чисел из 12 элементов. к сумме первых 8 прибавить произведение последних 7 элементов.

Var a: array[1..12] of integer; i,s,p : integer; begin for i: =1 to 12 do read (a[i]); s: =o; p: =1; for i: =1 to 8 do s: =s+a[i]; for i: =6 to 12 do p: =p*a[i]; write('искомый результат = ', s+p); end.

1)при просмотре телепередачи мы получаем информацию (прием информации);

играя в шахматы мы оцениваем действия соперника, и исходя из этого выбираем нужный ход (обработка информации);

решая пример по мы анализируем условие и вспоминая нужные алгоритмы решаем (обработка информации);

заучивая стихотворение мы пытаемся запомнить информацию (хранение информации);

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

2)при ремонте квартиры необходимо знать метраж (ширина, длина комнат, высота потолков), каждая комната представляет собой квадрат или прямоугольник. для покупки строительных материалов это важно знать. необходимо также уточнить, где проложены коммуникации (электропроводка и

Const       handsfree = true; var       a: array[1..100] of real;       i, n: integer;       min: real; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100);                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();                     {минимум и максимум}       min : = a[1];       for i : = 1 to n do       begin               if (min > a[i]) and (i mod 2=1) then min : = a[i];       end;       writeln('min = ', min); end.