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..100] of integer;
i,n:integer;
en,out:text;
res:real;
qw,qwe:string;
begin
n:=0;
i:=1;
write('Введите полный путь к импортируемому файлу: ');readln(qw);
write('Введите полный путь к экспортируемому файлу: ');readln(qwe);
assign(en,qw+'.txt'); assign(out,qwe+'.txt');
reset(en); rewrite(out);
while not Eof(en) do
begin
readln(en,mas[i]);
n:=n+mas[i];
inc(i);
end;
res:=(n/(i-1));
write(out,res);
close(out);
close(en);
end.
Там во вторую тупо добавляешь:
max:=-100001;
min:=100001;
if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];
if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];
if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')
else
begin
writeln(out,min);
writeln(out,max);
Тоже такие же задачи решал)) лол). Ты не из 604??)))