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

Program example; const n=7; var sr: real; i: integer; a: array[1..n] of integer; begin  sr: =0;   writeln('vvedite temperaturu za kajdyi den ');   for i: =1 to n do begin  readln(a[i]);   sr: =sr+a[i];   end;   sr: =sr/7;   write('srednya temperatura = ',sr: 0: 2);   readkey; end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

по одному.

обь в канал, мир,енесей,россия проплыли канал. обь выплыла и поплыла себе куда надо.

мир,енесей,россия вернулись обратно перед каналом

в канал заплыл восток.

мир,енесей,россия проплыли канал. восток уплыл

и тд