Дан ряд чисел. найти наибольшее из чисел 2а1, 3а2, 4а3, …, 9а8.

Const   n = 8; var   a: array[1..n] of integer;   i, t, im, max: integer; begin   writeln('введите через пробел ', n, ' чисел');   max : = -32768;   for i : = 1 to n do   begin       read(t);       a[i] : = t; t : = (i + 1) * t;       if max < t then begin max : = t; im : = i end;   end;   writeln('максимальное значение ', max, ' достигается как ', im + 1, '*a[', im, ']') end. тестовое решение: введите через пробел 8 чисел 4 -3 5 4 3 2 1 0 максимальное значение 20 достигается как 4*a[3]

Линия (line) – при перемещении курсора в любом направлении контрольная панель информирует о ее текущей длине в виде. дуга (аrc) – при перемещении курсора от начальной точки vcb вначале информирует о текущей длине хорды. для назначения нужной длины вводим свое значение. можно также назначить количество сегментов, образующих дугу вводом значения. прямоугольник (rectangle) – при перемещении курсора от начального угла к диагонально расположенному конечному vcb информирует о длинах сторон прямоугольника. окружность (circle) и многоугольник (polygon) – при перемещении курсора от назначенного центра окружности vcb информирует о текущей величине радиуса. можно переназначить эту величину непосредственно после завершения построения . перемещение (move) – при перемещении элемента инструментом vcb работает с величинами смещения точно так же, как и в инструменте линия (line). но, кроме того, удобно применять vcb для созданием копий, которые появляются при перемещении с нажатой клавишей ctrl. вращение (rotate) – в принципе, здесь все приемы работы с vcb аналогичны инструменту перемещение (move), только они применяются к величинам углов поворота (angle). масштаб (scale) – здесь vcb показывает текущие (и, естественно, можно назначить свои) коэффициенты масштабирования, а также подсказывает по каким осям это одновременно происходит. тянуть/толкать (push/pull) и контур (offset) – поскольку здесь также речь идет о дистанции перемещения, vcbработает с этими величинами, как и в инструменте линия (line). лупа (zoom) – здесь vcb показывает текущую (и, естественно, можно переназначить свою) величину угла обзора (поля зрения) камеры в градусах.

1. program nom1; const n=8; var a: array[1..n] of integer;   i,t: integer; begin for i: =1 to n do read(a[i]); t: =0; for i: =1 to n do t: =t+a[i]; write('командное время = ',t); end. 2.program n2; const n=15; var a: array[1..n] of integer; i: integer; v: real; begin for i: =1 to n do  a[i]: =random(30); v: =0; for i: =1 to n do v: =v+a[i]; v: =v/n; writeln('сред высота =',v); end.  3. program n3; const n=12; var a: array[1..n] of integer; i,c: integer; begin for i: =1 to n do  a[i]: =random(120)+100; c: =0; for i: =1 to n do if a[i]> 160 then   c: =c+1; writeln('kол-во прошедших = ',c); end.