6+8=14 рисунков - всего рисунков у Кати
14-5=9 рисунков- Осталось
Ответ:в альбоме осталось 9 рисунков
Var a:array[1..1000] of integer;
i,n,max,m:integer;
begin
write('n=');readln(n);
for i:=1 to n do read(a[i]);
max:=a[1];m:=1;
for i:=2 to n do if a[i]>max then
begin max:=a[i]; m:=i; end;
a[m]:=a[1];a[1]:=max;
for i:=1 to n do write(a[i],' ');
writeln;
<span>end.
</span>
<em>Приведу пример на Паскале.</em>
Var x,y:integer;
Begin
x:=5;
y:=3;
If x>y Then
x:x-y
Else
x:=x+y;
writeln(x);
end.
<em>Исход программы зависит от заданных переменных.</em>
хм, возможно, что если фирма В получит максимальную прибыль, то фира С её не сможет получить по логике.... Значит вариан Б
<font color="red">... (текст)...</font>