Hote меня блакирует почему...
и во что токое эльдрус меня блакирует почему... и во что токое эльдрус

195

230

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

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

Gпчелкажужу

Информатика

4,4(11 оценок)

Лови) var f: array [1..15] of real; i, res: integer; begin writeln('enter f: '); for i : = 1 to 15 do begin write('f[', i, '] = '); readln(f[i]); end; res : = 0; for i : = 1 to 15 do if (f[i] > 3) and (f[i] < 10.5) then res : = res + 1; writeln(res); end.