Program temperature; var t: array[1..12] of real; i: integer; tsred: real; begin for i: =1 to 12 do - id264635020230330 от гэлочка 30.03.2023 23:00

Question

Информатика: Program temperature; var t: array[1..12] of real; i: integer; tsred: real; begin for i: =1 to 12 do begin write( t[ , i: 2, ]= ); read (t[i]) end; tsred: =0; for i: =1 to 12 do tsred: =tsred+t[i]; tsred: =tsred/12; writeln( среднегодовая температура = , tsred: 6: 2, градусов ); for i: =l to 12 do begin dt[i]: = t[i] - tsred; writeln( dt[ ,i: 2, ]= , dt[i]: 6: 2) end. где здесь пишет ожидался оператор.

гэлочка · Accepted Answer

//PascalABC.Net 3.0, сборка 1064 const   n=20; var   a:array[1..n] of integer;   i,imax,imin:integer;   s:longint; begin   Randomize;   Writeln( Исходный ряд значений );   imax:=1; imin:=1;   for i:=1 to n do begin     a[i]:=Random(51)-25; Write(a[i], );     if a[i] a[imax] then imax:=i     else       if a[i] a[imin] then imin:=i   end;   Writeln;   if imax imin then     Writeln( Максимальный элемент встретился позже минимального )   else begin     s:=0;     for i:=imax+1 to imin-1 do s:=s+a[i];...

MOGZ ответил