Написать программу на заполнение 2-х массивов(рост девочек и рост мальчиков).определить средний рост мальчиков.подсчитать количество девочек,у которых рост выше среднего роста мальчиков.

167

440

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

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

Sanchos106

Информатика

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

unit math;

var

d,m: array[1..20] of integer;

sr: real;

kol,s: integer;

begin

for i: =1 to 20 do begin

d[i]: =randomrange(140,180);

writeln('рост ',i,'-ой девочки =',d[i],' см');

m[i]: =randomrange(140,190);

writeln('рост ',i,'-го мальчика= ',m[i],' см');

end;

s: =0; sr: =0; kol: =0;

for i: =1 to 20 do s: =s+m[i];

sr: =s/20;

writeln('средний рост мальчиков= ',sr,' см');

for i: =1 to 20 do

if d[i]> sr then kol: =kol+1;

writeln('колличество девочек превышающий средний рост мальчиков= ',kol);

end.

картерк

Информатика

4,6(8 оценок)

А) 1. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; for i: =0 to round((xk-x0)/h) do begin x: =x+h; y: =0.5*x+sqr(sin(x)); writeln(x: 5: 2,' ',y: 6: 4); end; end. 2. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; while x< xk do begin x: =x+h; y: =0.5*x+sqr(sin(x)); writeln(x: 5: 2,' ',y: 6: 4); end; end. 3. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; repeat x: =x+h; y: =0.5*x+sqr(sin(x)); writeln(x: 5: 2,' ',y: 6: 4); until x> =xk; end. результат: 0.00 0.00001.57 1.78543.14 1.5708б)var x,y: real; beginreadln(x); y: =(3-sin(2*x))*cos(x/3); writeln('y = ',y: 6: 4); if y< 0 then writeln('функция отрицательна') else if y> 0 then writeln('функция положительна') else writeln('функция = 0'); end.пример: 1.5y = 2.5089функция положительна