const n = 10;
var a: array [1..N] of real;
i, k: integer;
s: real;
begin
randomize;
for i:=1 to n do
begin
a[i]:= random(10000, 50000);
write(a[i]:8:2,' ');
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
s:=s/n;
writeln('ср.=',s:8:2);
k:=0;
for i:=1 to n do
if a[i]<s then a[i]:=a[i]*1.1
else if a[i]>s then k:=k+1;
writeln('k=',k);
for i:=1 to n do write(a[i]:8:2,' ');
writeln;
end.
Пример:
34973.00 16546.00 13691.00 41315.00 24650.00 44459.00 18117.00 37906.00 19255.00 17842.00
ср.=26875.40
k=4
34973.00 18200.60 15060.10 41315.00 27115.00 44459.00 19928.70 37906.00 21180.50 19626.20
Program n1;
Uses Crt;
var a: array[1..30,1..30] of integer;
k,m,i,j,s: integer;
begin for i:=1 to 18 do begin
for j:=1 to 12 do begin
a[i,j]:=random(5001)+5000;
write(a[i,j]:6);
end;
writeln;
end;
writeln;
s:=0;
for i:=1 to 18 do
s:=s+a[i,6];
writeln('Summa: ', s);
<span>end.
Высчитывает все правильно. Зарплату поставил от 5000 до 10000 тысяч рублей, строкой a[i,j]:=random(5001)+5000;
(b-a+1)+a - формула для расчета интервала чисел, т.е. зарплату поставил от 5000 до 10000, получается:
a = 5000
b = 10000
(10000-5000+1)+5000 = (5001)+5000;
Если захочешь поменять сумму зарплаты, думаю поймешь теперь как.
</span> for i:=1 to 18 do s:=s+a[i,6]; - этой строкой изменяю i (т.е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.
Перевод информации с машинного языка в формы доступные для человеческого восприятия.
23. Может быть крокодил? А выводы, оба "Да"
{a}
var x: integer;
begin
read(x);
write( (x mod 10 + x div 10 mod 10 + x div 100) mod 2 = 0 )
end.
{b}
var a,b,c: integer;
begin
read(a,b,c);
write( (a <> b) and (b <> c) and (a <> c) )
end.