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); 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; Если захочешь поменять сумму зарплаты, думаю поймешь теперь как. for i:=1 to 18 do s:=s+a[i,6]; - этой строкой изменяю i (т.е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.
Задай вопрос из школьного предмета 5-9 Математика 10+5 б есть 2014 одинаковых по виду монет и чашечные весы без гирек среди монет есть одна фальшивая,которая по весу отличается от настоящей предложите определить легче или тяжелее фальшивая монета чем настоящая за наименьшее число взвешиваний Попроси больше объяснений следить Отметить нарушение Ira05060 09.10.2014 ответы и объяснения CVita CVita главный мозг делим все монеты на две равные кучки по 1007 монет и проводим их взвешивание. каждая кучка покажет разный вес. 1007≠1007 (для примера левая легче) теперь из каждой из двух кучек откладываем по одной монете и делим их опять на две равные части по 503 монеты. получаем 4 кучки и 2 монетки. проводим попарное взвешивание. 503=503 503=503 1 монетка≠1 монетка в этом случае берем из любой кучки монетку и взвешиваем с любой из двух монеток. 503≠503 503=503 1=1 значит фальшивая монетка легче 503=503 503≠503 1=1 значит фальшивая монетка тяжелее.
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);
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;
Если захочешь поменять сумму зарплаты, думаю поймешь теперь как.
for i:=1 to 18 do s:=s+a[i,6]; - этой строкой изменяю i (т.е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.