Известны данные о температуре воздуха в течение августа. Определите максимальную температуру в августе.

program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.

лексикогрфический порядок: сравниваются первые буквы, если они однаковы, то вторые, третьи и т.д.

баскетбол

гимнастика

гитара

канал

посетить

почерк

расчёт

расчётливый

спортсмен

справа

справедливый

чехол

шоссе

шофёр

var a,b,c: array [1..100,1..100] of integer;

as,bs,cs,i,j: integer;

begin

  sb: =1;

  for i : = 1 to n do

        for j: = 1 to n do

        begin

            if a[i,j]< 0 then sa: =sa+a[i,j];

          if b[i,j]> 0 then sb: =sb*b[i,j];

            if j=3 then sc: =sc+c[i,j];

        end;

    writeln(sa,sb,sc);

end.

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.