Есть ответ 👍

Что является лишнем: вкус, цвет, форма, ухо, запах, звук?

278
297
Посмотреть ответы 2

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


Ухо, так как это часть лица

Var    a: array [1..7] of real;     i: integer;     m,s: real; begin     for i: =1 to 7 do                     read (a[i]);       for i: =1 to 7 do                     if a[i]< 0 then                      a[i]: =a[7];     for i: =1 to 7 do               write (a[i],' '); end. ================================ var    a: array [1..100] of integer;     k,x1,x2,i: integer;     s: real; begin     s: =0; read(k);     read(x1); read(x2); for i: =1 to k do                     read (a[i]); for i: =1 to k do  begin       if a[i] in [x1..x2] then                s: =s+a[i]; end; write (s,' ');   end.

Популярно: Информатика