Здесь х принимает значение с шагом 0,1 из интервала [0,7; 2] и а = 1,65
надо решить в паскаль

155

263

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

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

uIia454

Информатика

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

Var a: array [1..120] of real; i, res: integer; begin randomize(); res : = 0; for i : = 1 to 120 do begin a[i] : = random(101); writeln('a[', i, '] => ', a[i]); end; writeln(); for i : = 1 to 120 do if abs(a[i]) > 17 then inc(res); writeln(res); end. =================== var c: array [1..20] of integer; i, res: integer; begin randomize(); res : = 0; for i : = 1 to 20 do begin c[i] : = random(101); writeln('c[', i, '] => ', c[i]); end; writeln(); for i : = 1 to 20 do if c[i] mod 2 = 1 then c[i] : = -1 * c[i]; writeln('new array: '); for i : = 1 to 20 do begin writeln('c[', i, '] => ', c[i]); end; end.