Написать программу в паскале по вычислению средний температуры за неделю.исходные данные вводятся с клавиатуры: понедельник 12 градусов вторник 10 среда 16 четверг 18 пятница 17 суббота 16 воскресенье 14

var

  t: array [1..7] of real;   //массив температуры за неделю

  s: real;

  i: integer;

 

begin

  s: = 0;

  for i: = 1 to 7 do   //вводим температуру за каждый день

  begin

    writeln('введите температура в ', i, ' день недели');

    readln(t[i]);

    s: = s + t[i];

  end;

  writeln('средняя температуры за неделю:   ', s / 7 : 0 : 5);   {выводим среднюю температуру за неделю с округлением до 5 знаков после запятой}

end.

   

Const n=10;   type ar=array[1..n+1] of integer; var  a: ar; i,p: integer;   procedure pr(var a: ar; p: integer; var k: integer); begin k: =1; while a[k]< > p do k: =k+1; end; begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(31);   write(a[i]: 4);   end; writeln; p: =17; a[n+1]: =p; pr(a,p,i); if i< n    then writeln('значение 17 найдено, номер элемента = ',i)   else writeln('значения 17 в массиве нет'); end. пример: массив a:   14   5   7   17   25   15   28   0   24   0 значение 17 найдено, номер элемента = 4

Const n=20; var a: array[1..n] of integer; b,i,j: integer; t: boolean; begin randomize; writeln; for i: =1 to n do begin t: =false;           while t=false do begin          a[i]: =random(100)+1;           t: =true;                   for j: =1 to i-1 do                  if a[i]=a[j] then t: =false; end; write(a[i]: 4); end; end.   85 100   91   43   88   27   2   40   97   81   29   95   58   24   28   84   8   12   67   6