Создайте руку программы, которая находит БОЛЬШИНСТВО элементов двумерного массива.

242

464

Посмотреть ответы 1

Ответы на вопрос:

missana12345

Информатика

4,5(22 оценок)

Var s, i: integer; x: real; mas: array [1..8] of integer; begin s: =0; for i: =1 to 8 do begin readln (mas[i]); s: =s+mas[i]; end; x: =s/8; if (x> 0) and (x< 2.49) then write ('2'); if (x> =2.5) and (x< =3.49) then write ('3'); if (x> =3.5) and (x< =4.49) then write ('4'); if (x> =4.5) and (x< =5) then write ('5'); end.