a - уровень продаж, а затем зп первого менеджераb - второго менеджераc - третьегоуровень продаж у всех разный.язык программирования: паскальvara, b, c: integer; beginreadln (a); if a < 500 thena : = 0.03 * a + 200; if (a > 500) and (a < 1000) thena : = 0.05 * a + 200; if a > 1000 thena : = 0.08 * a + 200; readln (b); if b < 500 thenb : = 0.03 * b + 200; if (b > 500) and (b < 1000) thenb : = 0.05 * b + 200; if b > 1000 thenb : = 0.08 * b + 200; readln (c); if c < 500 thenc : = 0.03 * c + 200; if (c > 500) and (c < 1000) thenc : = 0.05 * c + 200; if c > 1000 thenc : = 0.08 * c + 200; if (a > b) and (a > c) thena : = a +200; elseif b > c thenb : = b + 200; elsec : = c + 200; wreteln ('зп первого менеджера: ', a, '$'); wreteln ('зп второго менеджера: ', b, '$'); wreteln ('зп третьего менеджера: ', c, '$')end.
1)
var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 10 do
begin
if mas[i]<0 then counter:=counter+1;
end;
end.
2)
var mas: array[1..5] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 5 do
begin
if (mas[i]>0) and (i mod 2 = 0) then counter:=counter+1;
end;
end.
3)
var mas: array[1..15] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 15 do
begin
if (mas[i]>5) and (i mod 2 = 0) then counter:=counter+1;
end;
end.
4)
var mas: array[1..15] of integer;
var counter: integer;
begin
for i:= 1 to 15 do
begin
mas[i] = random(20) - 5;
end;
for i:= 1 to 15 do
begin
writeln(mas[i]);
end;
for i:= 1 to 15 do
begin
if (mas[i]>0) then counter:=counter+1;
end;
end.
5)
var mas: array[1..7] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 7 do
begin
readln(mas[i]);
end;
for i:= 1 to 7 do
begin
if mas[i]>0 then mas[i]=0;
end;
for i:= 1 to 7 do
begin
writeln(mas[i]);
end;
end.
6)
var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
var sum: real;
var average: real;
begin
for i:= 1 to 7 do
begin
readln(mas[i]);
end;
for i:= 1 to 7 do
begin
if mas[i]<0 then
begin
sum:=sum+mas[i];
counter:=counter+1;
end
end;
average:= sum/counter;
end.
Объяснение:
