Объясните, , паскаль! откуда взялось sr: 8: var a: array[1..8] of integer; k,i,s: integer; sr: real; begin s: =0; for i: =1 to 8 do readln(a[i]); for i: =1 to 8 do if (a[i]> =100) and (a[i]< =999) then begin s: =s+a[i]; k: =k+1; end; if k=0 then begin writeln('в массиве нет трехзначных чисел.'); end; sr: =s/k; writeln('среднее среди трехзначных чисел: ',sr: 8: 2); end.

alina20067    1   30.07.2019 19:10    0